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Provando e riprovando 


Nicole Bréaud-Pouliquen 

La pratica dell’APPLE 

Per Imparare a usare un 
calcolatóre bisogna... usarlo. 

Solo così, ad esempio, è 
possibile scoprire e sfruttare 
le immense risorse operative 
offerte dall’APPLE. Provando, 
riprovando e... leggendo un 
manuale come questo. 

Scritto da un vero esperto, il 
libro si compone di 3 capitoli 
fondamentali: 
e II sistema APPLE II” 
dedicato all’hardware e al 

Qoftwarp 

• “Il BASIC APPLESOFT” 

con le istruzioni, 
i sottoprogrammi, 
gli operatori aritmetici e 
logici 

e “Il disegno e la grafica” 

con le zone di memoria RAM 
e le funzioni grafiche. 

Il tutto arricchito da numerosi, 
esempi ed esercitazioni con 
soluzioni: affinchè la pratica 
abbia l’immediata 
soddisfazione del riscontro. 
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Le regole del gioco 


di Riccardo Paolillo 

I nostri lettori più affezionati e tutti quanti seguono le 
molteplici attività del Gruppo Editoriale Jackson, 
sicuramente sanno che una delle caratteristiche a 
denominatore comune di tutte le nostre iniziative è 
rappresentata dallo sforzo profuso ad una diffusione 
di massa dei maggiori temi informatici. 

Nel corso degli ormai numerosi anni di attività, le 
nostre iniziative editoriali (riviste, libri, enciclopedie 
a dispense), hanno percorso la strada difficile, ma 
stimolante della divulgazione scientifica rigorosa¬ 
mente legata a solide basi teoriche. 

In questa ottica, e coerentemente con quanto più 
volte affermato in questa stessa rubrica riguardo il 
fenomeno ormai significativo dell’informatica indi¬ 
viduale, abbiamo sempre salutato con piacere ogni 
nuova iniziativa seria che potesse contribuire a dif¬ 
fondere l'interesse per i personal computer. 

Quando però vedono la luce iniziative a carattere 
esclusivamente speculativo e sicuramente scorrette, 
ci sembra giusto operare un netto distinguo, e infor¬ 
marne i nostri lettori. 

Realizzare e mettere in vendita, come è successo re¬ 
centemente, delle cassette contenenti programmi re¬ 


golarmente commercializzati nei normali negozi spe¬ 
cializzati è una operazione tecnicamente semplice e 
remunerativa, ma sicuramente scorretta. 

Scorretta verso chi questi programmi li ha regolar¬ 
mente acquistati in negozio e ora li paga una seconda 
volta; scorretta, ovviamente, nei confronti di chi li ha 
prodotti e di chi li commercializza regolarmente a 
fronte di cospicui investimenti. 

Ma soprattutto è un’azione dannosa per tutti gli 
operatori e gli utenti del settore microinformatico: è 
chiaro, infatti, che queste situazioni generano una 
comprensibile demotivazione nei migliori produttori 
di software a continuare il proprio lavoro. 

Quando poi ci si accorge, come è accaduto a noi, che 
la posta dei lettori dei fascicolo che accompagna una 
pubblicazione a cassette contiene due lettere con rela¬ 
tive risposte riprese vistosamente da Personal Softwa¬ 
re e malamente cammuffate, si rimane quantomeno 
stupiti. 

Comprendiamo che riuscire ad avere delle lettere 
autentiche a cui rispondere nel primo numero di una 
nuova rivista, sia un’impresa pressoché disperata. 
Essere considerati un punto di riferimento potrebbe 
anche renderci un po’ orgogliosi, se non prevalesse 
l’amarezza di constatare come anche un settore gio¬ 
vane, dinamico e in via di rapida espansione come il 
nostro, sia facile preda di operatori con pochi scrupo¬ 
li. ■ 
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Uno pseudo-linguaggio per i nostri 
programmi? 

Possiedo uno Spectrum da 48 
Kbyte e vorrei farvi una piccola pro¬ 
posta: perché invece di pubblicare 
direttamente un programma, quan¬ 
do ne siete voi gli autori, non pubbli¬ 
cate piuttosto il procedimento, o 
l’algoritmo usato, insieme a uno 
scheletro del programma stesso 
scritto in un qualche pseudo lin¬ 
guaggio, magari ricalcando il for¬ 
malismo Pascal o simili i com¬ 
menti al listato sono un buon inizio, 
ma sono appunto un inizio. Volen¬ 
do spingere al limite questo, potre¬ 
ste pubblicare tutti i programmi so¬ 
stituendo a quelle istruzioni che non 
sono standard (il 70% credo) delle 
chiamate a subroutine, sempre stile 
“Procedure" Pascal, di cui si pubbli¬ 
cherebbe poi a parte in un diziona¬ 
rio la codifica effettiva nei dialetti 
dei vari computer. 

Tanto per fare un esempio, per 
stampare qualcosa in un punto pre¬ 
ciso dello schermo, nel programma 
basterebbe scrivere: 

REM PRINT alla posizione vari, 
var2; 

mentre ad esempio in fondo alla ri¬ 
vista ci sarebbe la codifica effettiva 
di questa cosa fatta computer per 
computer. 

Bolcioni Davide 
Bologna 


Uno dei fattori principali che deter¬ 
mina la decisione di pubblicare o me¬ 
no un articolo è quello relativo alla 
quantità e qualità di documentazione 
che accompagna il listato vero e pro¬ 
prio. 

Avrà certamente notato che pratica- 
mente tutti i listati sono corredati dal¬ 
la spiegazione per blocchi di linee e 
che spesso vengono pubblicati dia¬ 
grammi di flusso e figure che dovreb¬ 
bero facilitare la comprensione del¬ 
l’algoritmo. 

La sua proposta di utilizzare uno 
pseudo linguaggio comune a tutti i 
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listati è sicuramente interessante da 
un punto di vista teorico, ma ci sem¬ 
bra piuttosto impraticabile per la no¬ 
stra rivista. 

Infatti l’alto numero di istruzioni non 
standard e il fatto che le caratteristi¬ 
che grafiche e sonore varino sensibil¬ 
mente da un personal all’altro, deter¬ 
minano una obiettiva difficoltà ad uti¬ 
lizzare un unico linguaggio formale. 
Inoltre occorre tenere conto che que¬ 
sto procedimento, se da un lato favo¬ 
rirebbe la comprensione dei metodi 
utilizzati agli utenti già esperti, dal¬ 
l’altro complicherebbe le cose ai mol¬ 
ti principianti che preferiscono un li¬ 
stato già pronto e funzionante per la 
propria macchina. 

Infine, e questo forse è il problema 
maggiore, visto che gli articoli sono 
scritti in massima parte da lettori che 
co Ila bora no alla rivista, occorrerebbe 
un metodo per diffondere questo ipo¬ 
tetico linguaggio con le difficoltà pra¬ 
tiche che è facile immaginare. 
Comunque restiamo in attesa di ulte¬ 
riori contributi e proposte su questo 
argomento. 


Una stampante per Spectrum 

Sono un vostro lettore da circa un 
anno, data nella quale ho acquistato 
un computer ZX Spectrum, di cui 
sono soddisfatto. 

Ora dopo aver fatto un po’ di espe¬ 
rienza con il BASIC, sto riuscendo a 
scrivere qualche programma, e 
quindi è venuta a crearsi l’esigenza 
di una stampante. 

Ora, scartata a priori la ZX Prin¬ 
ter, sentiti i pareri che circolano, mi 
sono orientato su qualcosa di più 
costoso: penso che con 500.000 o 
600.000 lire si possa acquistare già 
qualcosa di discreto. 

E qui viene il difficile, infatti a Tori¬ 
no è praticamente impossibile tro¬ 
vare qualcosa a meno di 1.300.000 
lire. 


In poche parole un utente Spec¬ 
trum che desideri comperare una 
stampante 80 colonne ad aghi, carta 
comune, non termica, verso cosa si 
deve orientare? E che interfacce de¬ 
ve cercare? Poiché neanche questo i 
negozianti sanno con certezza. 

Tra l’altro, avrei l’occasione di ac¬ 
quistare la stampante della Commo¬ 
dore la MPS 801, ma mi dicono che 
non è possibile in alcun modo usarla 
con lo Spectrum, è vero? 

Campo Riccardo 
Torino 


Quando venne lanciato lo Spec¬ 
trum, l’unica stampante che poteva 
essere utilizzata era la ZX Printer. 
Questa stampantina termica ha un 
costo particolarmente contenuto e 
consente di avere su carta anche le 
pagine grafiche. D’altra parte, però, è 
piuttosto lenta, stampa su carta stret¬ 
ta e facilmente deteriorabile. 

Ora che lo Spectrum ha raggiunto un 
elevato livello di diffusione, sono sta¬ 
te immesse sul mercato diverse inter¬ 
facce seriali e parallele. 

In particolare la Rebit ha reso di¬ 
sponibile una interfaccia universale, 
sia seriale RS 232 che parallela Cen¬ 
tronics, mediante la quale è possibile 
collegare allo Spectrum qualunque ti¬ 
po di stampante. 

Per quanto riguarda la scelta della 
stampante, riteniamo che ne possa 
trovare di valide e con le caratteristi¬ 
che richieste anche a cifre inferiori 
alle 1.300.000 lire richieste (ma un 
po’ superiori a quelle da lei indicate). 
La stampante Commodore MPS 801, 
va collegata direttamente al bus se¬ 
riale Commodore che differisce un 
po’ dallo standard RS 232 in quanto 
mancano alcuni segnali. Il collega¬ 
mento dovrebbe essere teoricamente 
possibile, ma sicuramente poi occor¬ 
rerebbe del software di gestione di 
non facile realizzazione. 

Pertanto le consigliamo di orien¬ 
tarsi su stampanti che utilizzino colle¬ 
gamenti standard (seriale RS 232 o 
parallelo Centronics). 
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Programmi per il PC Alphatronic 

Sono un ragazzo appassionato di 
computer e recentemente (da Di¬ 
cembre) ne posseggo uno. Il compu¬ 
ter in questione è il nuovissimo Alp¬ 
hatronic PC della Triumph Adler e 
da allora sono disperato. 

Infatti, voi ben sapete che per 
quanto questo computer sia in giro 
in Italia da circa 4 mesi, non si è 
visto un programma applicativo 
proprio dell’Alphatronic. 

Ora, io vi chiedo: 

— non potreste, ogni tanto fare un 
piccolo programma (per esempio di 
giochi) per rendere meno dura la 
vita di un quattordicenne disperato 
di computer? 

Gian Carlo Campana 
Cagliari 
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Il PC Alphatronic della Triumph 
Adler è stato presentato in Italia lo 
scorso mese di Settembre in occasio¬ 
ne dello SMA U, mentre la commer¬ 
cializzazione ha avuto inizio qualche 
tempo dopo. 

Come succede quasi sempre, ogni vol¬ 
ta che viene lanciato sul mercato un 
nuovo personal, nei primi mesi il soft¬ 
ware viene rilasciato a ritmi molto 
lenti. 

Questo inconveniente, che ovvia¬ 
mente indispettisce l’utilizzatore 
sempre alla caccia di nuovi program¬ 
mi, è comunque in parte giustificato 
dal fatto che il programmatore deve 
dedicare un po’ di tempo allo studio 
delle possibilità offerte dal nuovo cal¬ 
colatore oltre a quello normalmente 
necessario per la creazione del soft¬ 
ware. 


Nel caso specifico del PC Alphatro¬ 
nic, comunque, le cose dovrebbero es¬ 
sere più semplici. Infatti il nuovo per¬ 
sonal Triumph utilizza il sistema ope¬ 
rativo CPM che è l’unico che costitui¬ 
sca uno standard di fatto. 

Quindi, dato che sono numerosissi¬ 
mi i programmi che girano sotto 
CPM, non dovrebbe essere difficile 
reperirne qualcuno che, con qualche 
piccola modifica, possa essere utiliz¬ 
zato con il PC Alphatronic. 

In ogni caso è auspicabile che venga¬ 
no presto resi disponibili programmi 
scritti appositamente per il piccolo 
Triumph, che possano sfruttare le in¬ 
teressanti caratteristiche non stan¬ 
dard (come ad esempio la grafica). 

Noi, come sempre, invitiamo chi 
avesse qualche programma interes¬ 
sante a farsi vivo con la Redazione. 



È vero: piccolo è bello! 


Alla scoperta dello 
ZX SPECTRUM 

a cura di Rita Bonelii 

ZX Spectrum è l’ultimo nato della famiglia Sinclair. È un 
calcolatore a colori di piccole dimensioni, ma di 
grandissime possibilità. Imparare a usarlo bene può 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aiuta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione 
in BASIC, ma arriverete anche a usare efficientemente il 
registratore e a sfruttare al meglio le stampe. 

Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. 

320 pagine. Lire 22.000 Codice 337 B 
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Continua 

la nostra “battaglia” 
con il PET CBM 


di Umberto Giovanni Barzaghi 


C ome annunciato ne! nume¬ 
ro scorso di Personal Soft¬ 
ware, pubblichiamo ora il 
listato ed i REMarks del program¬ 
ma “La battaglia del lago ghiaccia¬ 
to”, il cui articolo introduttivo è ap¬ 
parso sul numero 17. 


REMarks 

0 - Inizializzazione di alcune varia¬ 
bili utilizzate all’interno del pro¬ 
gramma. In particolare: 

GH - Fissa lo spessore minimo ini¬ 
ziale del ghiaccio. 

VH - Indica la variabilità massima 
dello spessore aggiuntivo del ghiac¬ 
cio. 

GN, RN, GR, RR - Contengono i 
numeri di poke corrispondenti ai ca¬ 
ratteri con cui vengono rappresenta¬ 
te nel corso del gioco le pedine che 
compongono i due schieramenti, in 
base al fatto che siano russe (RN e 
RR) o germaniche (GN e GR), e che 
le unità corrispondenti si trovino 
sulla terraferma (RN e GN) o sulla 
superficie ghiacciata del lago (RR e 
GR). 

NR - Indica il numero delle unità 
che compongono la fanteria russa. 
5 - Inizializzazione di altre variabili 
e dimensionamento dei vettori ne¬ 
cessari all’economia del program¬ 
ma. In particolare: 

NG - Indica il numero delle unità 
che compongono la cavalleria teuto¬ 
nica. 


a battaglia 
lago ghiacciato 


— Parte seconda — 


W$(25) - Vettore gestione cursore 
video. 

C(20,37,2) - Contiene, per ognuna 
delle unità video che compongono 
la scacchiera di gioco (20x37, ap¬ 
punto), un valore indicante il nume¬ 
ro di poke corrispondente ai caratte¬ 
ri che compongono la cartina ( 1 ) ed 
uno corrispondente allo spessore del 
ghiaccio in ciascun punto del lago 
per il quale questo valore sia signifi¬ 
cativo (2). 

R(NR,4) e G(NG,4) - Contengono i 
dati necessari ad analizzare il com¬ 
portamento di ciascuna unità che 
compone i due schieramenti. In par¬ 
ticolare, la posizione di indice 1 con¬ 
tiene il valore di ordinata y della 
posizione di ciascuna unità, vale a 
dire l’indice di riga; la 2, il valore di 
ascissa x, cioè l’indice di colonna. La 
locazione di indice 0, contiene il va¬ 
lore indicante la potenza della sin¬ 
gola unità negli scontri, mentre in 3 
è contenuto il valore corrispondente 
al peso della singola unità, che ne 
determina il destino nei movimenti 
sul ghiaccio. 

AM (9,4) e NE (9,4) - Questi due 
vettori contengono, per le truppe 
amiche e nemiche, i dati necessari a 
determinare l’esito dei singoli scon¬ 
tri. Entrambi questi vettori sono, 
ovviamente, dimensionati sul valore 
massimo teorico che il numero di 
truppe amiche a sostegno o nemiche 
da fronteggiare, all’interno della 
Z.O.C. (Zone of Control, zona di 
controllo) della unità che sostiene 
l’attacco, può avere. 

9 - Vengono inizializzate le variabili, 
contenenti la potenza complessiva, 
negli scontri, dei due schieramenti. 
MG, cioè potenza complessiva della 
cavalleria teutonica è calcolata in 
ragione di un punto per ogni unità 
(30) e della somma dei valori iniziali 
indicanti la potenza negli scontri 
delle singole unità (15x30=450). 


Questo valore viene, ovviamente, 
modificato nel corso del combatti¬ 
mento. MR, calcolato con gli stessi 
criteri di cui sopra, è inizializzato, 
per la fanteria russa, a 240, vale a 
dire la metà del valore precedente, 
ma distribuito tra il doppio di unità. 
12-13 - Vengono inizializzate le va¬ 
riabili necessarie per realizzare le 
scritte che compaiono nel corso del¬ 
la partita. Esse sono spezzate sia per 
ragioni di spazio (Come nel caso 
della scritta “I cavalieri teutonici so¬ 
no stati disarcionati”, che non può 
stare su di un’unica riga video) sia 
perchè vengono utilizzate in casi di¬ 
versi (come la scritta “sono stati fe¬ 
riti” che appare sia accoppiata - e 
sulla stessa riga - alla scritta “i con¬ 
tadini russi” sia - ma su due righe 
che compaiono in successione, per 
ragioni di spazio - alla scritta “I ca¬ 
valieri teutonici”). 

15-25 - Coordinate e ciclo di intro¬ 
duzione delle stesse per la fanteria 
russa (composta da contadini), co¬ 
mandata dal principe Alexander 
Nevskij. Le coordinate sono intro¬ 
dotte nell’ordine in cui le singole 
unità si muovono, in modo, ovvia¬ 
mente, da consentire degli sposta¬ 
menti che non diano luogo ad ingor¬ 
ghi ed a situazioni di stallo. 

30-45 - Come sopra per la cavalleria 
dell’ordine teutonico, comandata 
dal Gran Maestro dell’Ordine Von 
Balk, in persona. 

Inoltre si accede alla subroutine di 
inizializzazione del programma. 

47 - Il test tende a stabilire se si stia 
ricreando una partita precedente- 
mente interrotta, nel qual caso si 
accede al sottoprogramma che ridi¬ 
segna la cartina in base alla situazio¬ 
ne precedente all’interruzione, quin¬ 
di si salta la sezione di programma 
immediatamente successiva. 

50-65 - Dati che consentono di crea¬ 
re, in sede di inizio partita, la carti- 
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na. I dati sono suddivisi per righe e 
preceduti da un numero che indica 
la posizione a partire dal margine 
sinistro, in cui il gruppo di caratteri 
successivo va piazzato. 

100 - Dopo aver provveduto a libe¬ 
rare lo schermo, si provvede a legge¬ 
re i dati nell’ordine opportuno ed a 
piazzarli sullo schermo stesso. 
110-130 - Viene realizzata la cornice 
della scacchiera. 

140-150 Per ogni coppia di coordi¬ 
nate della cartina, viene letto e me¬ 
morizzato il numero di poke corri¬ 
spondente. Nel caso in cui quest’ul¬ 
timo sia diverso da 160, vale a dire 
carattere video in negativo, nella lo¬ 
cazione di indice 2 corrispondente, 
viene memorizzato un valore fittizio 
indicativo (99) e si salta la successiva 
riga di programma, in cui viene ge¬ 
nerato casualmente, ma con un 
campo di variabilità dato dalle va¬ 
riabili GH e VH, lo spessore del 
ghiaccio. In 147, infine, si esamina il 
caso in cui il carattere corrisponda 
al segno meno (utilizzato nella carti¬ 
na per indicare, secondo la conven¬ 
zione internazionale, le zone palu¬ 
dose), nel qual caso la locazione di 
indice 2 corrispondente riceve un 
valore indicativo necessario per se¬ 
gnalare il fatto. 

N.B. - Lo spessore del ghiaccio viene 
determinato solo nel caso in cui il 
carattere corrispondente alle coor¬ 
dinate sia uguale allo spazio vuoto 
in negativo, poiché solo in questo 
caso, qualora il ghiaccio si rompes¬ 
se, nel corso della partita, potrebbe 
essere sostituito dal carattere pre¬ 
scelto per indicare il fatto, senza al¬ 
terare i contorni del lago. I tratti di 
Iago, quindi, che vengono contrad¬ 
distinti da caratteri a metà bianchi e 
neri, in senso trasversale, sono al¬ 
trettanto solidi della terraferma, e 
così pure per l’affluente e l’effluente 
del lago. 


155-159 - Viene piazzato, unità per 
unità, l’esercito russo in base alle sue 
coordinate attuali; siano esse quelle 
iniziali o quelle in cui ciascuna unità 
si trovava al momento di una inter¬ 
ruzione. 

In particolare: 

155-11 numero di poke che coincide 
con il carattere che contraddistingue 
la unità in questione, viene assegna¬ 
to alla variabile Cl. Quindi viene 
operato un test per stabilire se la 
i-esima unità è ancora attiva (valore 
corrispondente alla sua potenza ne¬ 
gli scontri, superiore o uguale a 
—3). Il valore negativo del test di cui 
sopra è dato dal fatto che le unità 
che rimangono intrappolate nella 
palude (valore uguale a —3, appun¬ 
to), compaiono ugualmente sulla 
scacchiera, pur non potendosi muo¬ 
vere. 

156 - Nel caso in cui la unità in que¬ 
stione si trovi sulla superficie del la¬ 
go, la variabile Cl viene modificata 
in modo da confondersi con il carat¬ 
tere di fondo; quindi invece del ca¬ 
rattere “pedina bianca” che con¬ 
traddistingue i cavalieri teutonici, si 
utilizza il carattere “pedina nera” in 
negativo per contraddistinguere gli 
stessi cavalieri (che appariranno 
sempre bianchi) in movimento sul 
lago. Un discorso simmetrico vale, 
ovviamente per le unità russe). 

157 - Display del carattere prescelto 
nel punto opportuno. 

160-165 - Analoghe alle righe 155- 
159 per quanto riguarda la cavalle¬ 
ria dell’Ordine Teutonico. 

169 - Il test si rende necessario per 
cedere, nel caso in cui si sia ricostrui¬ 
ta una partita precedentemente in¬ 
terrotta in cui il giocatore controlla¬ 
va la cavalleria teutonica, il control¬ 
lo alla unità cui la mossa spettava al 
momento dell’interruzione. 

175-190 - Ciclo di gestione della CR- 
esima unità di fanteria russa. In par¬ 


ticolare: 

175 - Se la unità in questione è scom¬ 
parsa dal tavolo di gioco o è impos¬ 
sibilitata a muoversi - perchè impri¬ 
gionata dalle paludi -, si salta la riga 
immediatamente successiva. 

177 - Se la unità in questione ha degli 
handicap pendenti, a causa di prece¬ 
denti scontri, si provvede a diminui¬ 
re di una unità la variabile indicante 
l’entità degli handicap stessi e si sal¬ 
ta quindi la riga successiva. Con 
questo meccanismo viene imple¬ 
mentato quell’effetto di rallenta¬ 
mento del movimento, che consente 
di non avere incongruenze nella ve¬ 
locità di spostamento, ad esempio, 
tra truppe russe a piedi e cavalieri 
teutonici, una volta disarcionati. 
180 - Si accede, dopo aver opportu¬ 
namente inizializzato la variabile 
C$, in modo da segnalare a quale dei 
due schieramenti si fa riferimento, 
alla subroutine che gestisce il com¬ 
portamento delle singole unità e ad 
una subroutine che si occupa di veri¬ 
ficare che nessuna delle due armate 
sia scomparsa dal campo da gioco. 
190 - Viene aggiornato il valore del¬ 
l’indice CR, con modulo pari al nu¬ 
mero di unità che compongono l’e¬ 
sercito russo. Si utilizza un ciclo im¬ 
plicito in luogo del ciclo esplicito 
FOR ... NEXT, in modo da non dar 
luogo ad errori nel caso in cui si 
interrompa la elaborazione per sal¬ 
vare su nastro la situazione attuale 
di una partita. 

197 - Analoga alla riga 177, per quel 
che riguarda lo schieramento teuto¬ 
nico. 

195-210 - Analoghe alle 175-190 per 
la cavalleria teutonica. 

220 - Si accede al sottoprogramma 
che verifica le condizioni di termina¬ 
zione della partita e calcola e segna¬ 
la il punteggio parziale raggiunto 
dai due contendenti. Quindi si rici¬ 
cla, in modo da realizzare due cicli 
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impliciti che evolvono alternativa- 
mente; permettendo così di realizza¬ 
re un meccanismo che consente di 
muovere tutte le unità di ciascuno 
dei due schieramenti prima che ven¬ 
ga analizzata la situazione che si è 
venuta a creare (accesso alla subrou¬ 
tine 4000). Inoltre, a causa della dif¬ 
ferente numerosità delle due fazioni, 
nello stesso arco di tempo in cui tut¬ 
te le unità della fanteria di Alexan¬ 
der Nevskij effettuano una mossa, le 
unità di cavalleria del Gran Maestro 
Von Balk effettuano due mosse, si¬ 
mulando quindi una velocità di mo¬ 
vimento doppia rispetto a quella 
della fanteria russa. 

500-999 - Sottoprogramma di ge¬ 
stione del comportamento della sin¬ 
gola unità. 

In particolare: 

510 - Viene esaminato il caso in cui 
la unità in questione appartenga allo 
schieramento germanico 
(C$=“G”). In questo caso le varia¬ 
bili NC e RC, che contengono il nu¬ 
mero di poke del carattere che con¬ 
traddistingue l’unità su terra ferma e 
sul ghiaccio vengono inizializzate ai 
corrispondenti valori che identifica¬ 
no i cavalieri teutoni. 

Vengono inoltre inizializzate al va¬ 
lore delle corrispondenti specifiche 
della CG-esima unità le variabili X e 
Y (coordinate della locazione dell’u¬ 
nità sulla cartina di gioco) e P (peso 
della unità stessa). 

515 - Analoga alla riga precedente 
nel caso in cui la unità appartenga 
all’esercito russo. 

520 - Viene memorizzata la vecchia 
posizione della pedina, tramite le 
sue coordinate; quindi si accede alla 
subroutine che mostra la posizione 
dell’unità presa in considerazione. 
Nel caso in cui la variabile C$, che 
contraddistingue la unità suddetta e 
segnala a quale dei due schieramenti 
appartenga, coincide con la variabi¬ 
le JK$, che indica quale delle due 
formazioni si trovi sotto il controllo 
del computer, si accede ad una op¬ 
portuna subroutine che effettua le 
decisioni strategiche per la unità in 
questione, e si salta la riga successi¬ 
lo 


va. 

530 - Si accede al sottoprogramma 
che acquisisce le decisioni del gioca¬ 
tore, tramite tastiera. 

540-550 - In base a quale dei due 
schieramenti la unità appartiene, ne 
viene aggiornata la posizione. 

560 - Si richiama il sottoprogramma 
che permette di stabilire se la mossa 
appena compiuta ha messo la unità 
in grado di aggredire unità nemiche 
all’interno della sua Z.O.C. 
1000-1999 - Subroutine di acquisi¬ 
zione comandi da tastiera. In parti¬ 
colare: 

1020 - L’accesso alla subroutine 
5000 ed il test sul contenuto della 
variabile acquisita, consente di rea¬ 
lizzare il lampeggio della posizione 
attualmente occupata dalla unità, fi¬ 
no a che non viene premuto un tasto 
significativo. 

1030 - Controllo di correttezza sul 
comando acquisito. 

1035 - Nel caso in cui il tasto premu¬ 
to sia lo 0 - si desidera, cioè, inter¬ 
rompere la partita - si richiama la 
subroutine che salva i dati attuali 
della partita su nastro. 

1040 - Si richiamano i sottopro¬ 
grammi che cancellano l’ultima riga 
video e calcolano lo spostamento 
conseguente alla direzione prescelta 
dal giocatore. 

1050 - Si accede alla subroutine che 
analizza lo spostamento effettuato 
in modo da stabilire se essa porta la 
unità in questione ad uscire dal ta¬ 
bellone di gioco od a sovrapporsi ad 
unità amiche o nemiche. Se la situa¬ 
zione è modificata in modo signifi¬ 
cativo dall’ultima mossa si inter¬ 
rompe ogni ulteriore analisi. 

1055 - Si accede al sottoprogramma 
che analizza i casi in cui la mossa 
abbia portato l’unità a muoversi su 
ghiaccio (ed in questo caso si analiz¬ 
za se il ghiaccio si sia o no rotto) o a 
finire nelle paludi. 

1060 - La vecchia posizione della 
pedina viene rimpiazzata con il ca¬ 
rattere corrispondente della cartina 
sottostante. Quindi, si provvede ad 
invertire tra loro le due variabili, in 
modo che l’ultima ad essere mostra¬ 



ta su video sia quella effettiva, prima 
di effettuare il lampeggio della unità 
mossa nella sua nuova posizione. 
3000-3150 - Sottoprogramma di ini- 
zializzazione della partita. In parti¬ 
colare: 

3000 - Le locazioni di memoria di 
indice 3 delle matrici R e G, vengono 
inizializzate al valore iniziale del pe¬ 
so di ciascuna unità. L’unità di mi¬ 
sura di questo valore non viene, vo¬ 
lutamente, specificata, così come 
quella dello spessore del ghiaccio. 
Ciò che importa, all’interno della 
economia del programma, non è, in¬ 
fatti, il valore assoluto ma quello 
proporzionale dei valori suddetti. 
Così, il peso dei cavalieri teutonici, 
completi di cavalcatura e corazza è 
pari ad otto volte quello dei contadi¬ 
ni russi che costituiscono le truppe a 
piedi di Alexander Nevskij. Da no¬ 
tare che, nel caso in cui i cavalieri 
teutonici vengano disarcionati, il lo¬ 
ro peso scende a tre volte quello dei 
fanti russi (pur essendo appiedati, 
infatti, mantengono la loro corazza¬ 
tura). 

3003 - Le locazioni di memoria di 
indice 0 delle matrici suddette ven¬ 
gono inizializzate al valore di par¬ 
tenza della potenza di ciascuna uni¬ 
tà negli scontri. Come si può notare, 
la efficacia originale delle unità ger¬ 
maniche è pari a cinque volte una 
unità di fanteria russa in piena effi¬ 
cienza. Nel caso in cui un cavaliere 
sia appiedato la sua potenza scende 
a 3 - pari quindi a quella di un fante 
-, ciò poiché, pur conservando la 
protezione fornita dalla corazza, es¬ 
sa ne diminuisce la agilità e la rapidi¬ 
tà di movimenti. Nel caso in cui, 
infine, una unità sia ferita il suo va¬ 
lore scende di un punto e mezzo. In 
tutti i casi in cui venga menomata la 
integrità di una unità, quest’ultima 
viene penalizzata di due turni, che 
ne rallentano la velocità di avanza¬ 
mento anche nei turni successivi. 
Nel caso in cui un cavaliere teutoni¬ 
co viene disarcionato, la sua velocità 
di avanzamento viene ridotta e sin¬ 
cronizzata con quella della fanteria 
russa. Nel solo caso in cui venga 









ferita una unità di cavalleria, essa 
salta i due turni successivi, ma non 
ne viene successivamente rallentato 
l’avanzamento. 

3010-3020 - Display dell’intestazio¬ 
ne. 

3030-3050 - Viene offerta all’utente 
la possibilità di ricaricare una parti¬ 
ta interrotta. 

3100-3150 - Acquisizione della scel¬ 
ta, nel caso in cui si dia inizio ad una 
nuova partita, circa quale dei due 
eserciti si desidera controllare. 
4000-4999 - Sottoprogramma di esa¬ 
me delle condizioni di terminazione. 
In particolare: 

4005 - Il test consente la prosecuzio¬ 
ne della subroutine, solo nel caso in 
cui la mossa tocchi alla prima unità 
di cavalleria tedesca, sia essa o no 
attiva, in modo da mostrare il pun¬ 
teggio ad intervalli regolari rispetto 
allo svolgimento dello scontro. 

4010 - Si richiama la subroutine che 
effettua il calcolo del punteggio, 
quindi si crea la stringa di stampa 
nel caso in cui il giocatore abbia 
scelto di controllare la fanteria rus¬ 
sa. Il punteggio dell’esercito con¬ 
trollato dal giocatore viene mostra¬ 
to per primo ed il punteggio della 
cavalleria tedesca appare in nero su 
bianco. 


4020 - Analogamente alla seconda 
parte della riga precedente viene cre¬ 
ata la stringa di stampa nel caso in 
cui il giocatore controlli la cavalleria 
teutonica. 

4030 - Display del punteggio. 
4040-11 test tende a stabilire se sono 
state raggiunte le condizioni di ter¬ 
minazione previste per la vittoria 
della cavalleria teutonica. Queste 
condizioni prevedono che il rappor¬ 
to iniziale di due a uno tra i due 
schieramenti, per quanto riguarda 
la potenza negli scontri, venga por¬ 
tato a tre a uno (inizialmente avevo 
previsto, addirittura, un rapporto di 
quattro a uno, rivelatosi pratica- 
mente proibitivo per lo schieramen¬ 
to teutonico, sia sotto il controllo 
del computer, sia sotto il controllo 
del giocatore; il rapporto scelto è 
ancora un po’ alto, se si ha sfortuna 
nell’attraversamento della superfi¬ 
cie ghiacciata del lago, per questo è 
consigliabile cercare un rapido aggi¬ 
ramento del fianco destro dello 
schieramento russo, sfruttando la 
stretta striscia di terraferma tra la 
superficie del lago ed i confini del 
campo di gioco). 

4050 - Test analogo a quello della 
riga precedente per quanto riguarda 
la vittoria della fanteria russa. Le 


condizioni, in questo caso, prevedo¬ 
no, semplicemente, che i due schie¬ 
ramenti raggiungano una sostanzia¬ 
le parità dal punto di vista della po¬ 
tenza negli scontri, poiché la cosa, 
dato che la minore potenza delle sin¬ 
gole unità genera una maggior fram¬ 
mentazione, significa che lo schiera¬ 
mento russo supera numericamente 
l’avversario di molte unità. 
5000-5010 - Mediante un ciclo, alter¬ 
nando i due caratteri che contraddi¬ 
stinguono le singole unità, in base al 
fatto che si trovino o no sul ghiaccio, 
viene realizzato l’effetto di lampeg¬ 
gio che ne segnala la posizione. 
6000-6070 - Questa subroutine è re¬ 
sponsabile delle decisioni sia tatti¬ 
che che strategiche del calcolatore. 
In particolare: 

6000 - Viene registrata la posizione 
attuale della unità sotto esame, tra¬ 
mite una coppia di variabili che ne 
conservano le coordinate, poiché le 
variabili originali vengono modifi¬ 
cate nel corso dell’esame. 

Viene quindi aperto un ciclo che 
consente di esaminare tutte le nuove 
alternative possibili, per quanto ri¬ 
guarda le mosse a disposizione del 
calcolatore. Le variabili X e Y, ven¬ 
gono ri-inizializzate all’interno del 
ciclo poiché esse servono da base per 
l’esame delle decisioni; viene, poi ri¬ 
chiamata la subroutine che, in base 
alla direzione di marcia, determina 
la variazione delle coordinate, e si 
azzera la variabile DD di indice DR 
in cui verrà posto un valore espri¬ 
mente la convenienza a muovere 
nella DR-esima direzione da parte 
della unità sotto esame. 

6016-6017 - In base all’appartenen¬ 
za della unità ad uno o all’altro dei 
due schieramenti, la variabile di in¬ 
dice DR viene aggiornata con un 
“bonus” proporzionale allo sposta¬ 
mento dell’unità verso lo schiera¬ 
mento avversario. Più semplicemen¬ 
te, questo meccanismo assegna un 
bonus positivo a quelle mosse che 
portano la fanteria russa a scendere 
verso la parte bassa dello schermo e 
la cavalleria tedesca a salire verso la 
parte alta, bonus negativi a mosse 













che portino l’unità in direzioni op¬ 
poste alle suddette, mentre non mo¬ 
dificano il valore del bonus nel caso 
in cui lo spostamento sia esclusiva- 
mente laterale o, addirittura, 
(DR=5) l’alternativa esaminata è 
quella di non muoversi. 

6019 - Viene generato, con indice 
opportuno, in modo da avere una 
serie di valori, ogni volta diversa, un 
valore casuale per simulare una cer¬ 
ta “imprevedibilità” di comporta¬ 
mento. Alla variabile di indice DR 
viene sottratto un valore proporzio¬ 
nale allo spostamento laterale del¬ 
l’unità, per evitare che, per ragioni 
“strategiche” che vedremo più 
avanti, si ottenga un movimento di 
ricopertura laterale dello schiera¬ 
mento, che porta le varie unità ad 
ammassarsi verso la parte destra del 
campo di gioco. Alla variabile sud¬ 
detta vengono anche sottratti due 
valori proporzionali alla distanza 
dell’unità dal centro strategico della 
cartina, in modo da portare le varie 
unità a tendere, almeno intenzional¬ 
mente, verso questa zona dello 
schermo, indipendentemente da 
considerazioni “tattiche”, che han¬ 
no comunque la preminenza. 

6020 - Si determina qual’è lo stato 
della cartina, nella direzione in cui la 
DR-esima mossa porterebbe la uni¬ 
tà in esame. Ciò serve sia ad evitare 
le “trappole” date dallo stato del 
terreno, sia eventuali problemi di 
coordinamento con le unità amiche. 
Se il terreno, nella direzione suddet¬ 
ta, è rappresentato da una porzione 
di superficie ghiacciata, il bonus vie¬ 
ne diminuito di una unità, in modo 
da portare le varie unità ad evitare, 
se possibile, il rischio di sprofondare 
nel ghiaccio. 

6025 - Nel caso in cui l’opzione che si 
esamina è quella di rimanere nel 
punto stesso in cui ci si trova 
(DR=5), se nel punto in questione la 
superficie non è solida ma ghiaccia¬ 
ta (EE= 160) e l’unità controllata dal 
calcolatore è una delle pesantissime 
unità di cavalleria teutonica 
(C$=“G”), il bonus viene posto 
uguale ad un valore indicativo mol¬ 


to basso (—9999), per segnalare che 
la mossa in questione è pessima. 
Questa misura è forse un poco ecces¬ 
siva, ma, dato che il passaggio sul 
ghiaccio ne determina un deteriora¬ 
mento che è proporzionale al peso 
della unità, sarebbe statisticamente 
molto rischioso rimanere fermi sul 
ghiaccio per una unità di cavalleria 
teutonica. Da notare che, nel caso in 
cui la mossa sia da evitare, si inter¬ 
rompe ogni ulteriore esame nella di¬ 
rezione in questione. 

6030 - Mediante un ulteriore esame 
si sconsiglia vivamente (valore del 
bonus uguale a —999) di abbando¬ 
nare la scacchiera. 

6035 - L’esame sullo stato del terre¬ 
no consente di stabilire se ci si trova 
in presenza di crepacci provocati da 
precedenti unità sprofondate nello 
stesso punto (EE=214); nel qual ca¬ 
so, la mossa viene segnalata come 
“sconsigliata” e l’esame interrotto. 
6037 - Analoga alla 6035 nel caso di 
paludi (EE=45), e solo per le truppe 
germaniche. 

6040 - Nel caso in cui lo spostamen¬ 
to portasse a scontrarsi con altre 
unità, sia amiche che nemiche, - ed il 
fatto viene stabilito confrontando lo 
stato del terreno nella direzione vo¬ 
luta, con i caratteri che contraddi¬ 
stinguono le varie unità - la mossa 
viene inibita nel solito modo. Da 
notare che dall’esame suddetto, va 
eliminato il caso in cui si esamini la 
possibilità di arrestarsi, poiché il test 
darebbe sempre esito positivo; dato 
che nella posizione suddetta si trova 
la unità sotto esame. 

6046 - Si richiama il sottoprogram¬ 
ma che determina l’entità del soste¬ 
gno delle unità amicheedell’opposi- 
zione di quelle nemiche all’interno 
della Z.O.C. della unità sotto esame 
nel caso in cui si sposti nella DR- 
esima direzione. Nel caso in cui al¬ 
l’interno della zona suddetta non vi 
sia alcuna possibilità di opposizione 
avversaria, la variabile decisionale 
viene aggiornata aggiungendovi il 
valore numerico casuale calcolato in 
riga 6019, diminuito di .5 in modo 
da generare valori casuali sia positi¬ 


vi che negativi (la funzione RND 
genera, infatti, valori compresi tra 0 
e 1), una opportuna frazione del nu¬ 
mero di unità amiche all’interno del¬ 
la Z.O.C. (in modo da portare ad un 
certo effetto di concentramento del¬ 
le truppe, assai utile negli scontri 
diretti, pur evitando quell’effetto di 
“ricopertura” di cui sopra) ed inol¬ 
tre viene sottratto un valore PPcheè 
proporzionale al numero di tratti 
paludosi che circondano la casella in 
cui la mossa in esame porterebbe la 
unità, onde evitare che una unità 
vada inutilmente ad infilarsi nel la¬ 
birinto delle paludi che circondano 
il collegamento tra il lago Cudskoe 
ed il lato Pskov. L’esame viene quin¬ 
di interrotto. 

6047 - Nel caso in cui uno sposta¬ 
mento della unità sotto esame nella 
DR-esima direzione portasse ad uno 
scontro, si esamina la convenienza 
dello stesso. A questo scopo, si acce¬ 
de alla subroutine che stabilisce la 
consistenza relativa dei due schiera- 
menti, vale a dire la somma delle 
variabili indicanti, appunto, la po¬ 
tenza negli scontri per le unità che 
sono coinvolte nell’eventuale scara¬ 
muccia provocata dallo spostamen¬ 
to nella DR-esima direzione della 
unità che il calcolatore sta gestendo. 
In base ai dati calcolati dal sottopro¬ 
gramma di cui sopra, la variabile 
decisionale associata alla DR-esima 
direzione, viene aggiornata, oltre 
che dall’aggiunta del fattore casuale 
e della variabile PP, che evita, come 
visto alla riga precedente, che l’unità 
si inoltri tra le paludi; anche da un 
valore numerico proporzionale alla 
differenza tra la potenza delle trup¬ 
pe amiche e quella delle avversarie. 
In questo modo, si evita di impe¬ 
gnarsi pericolosamente con forze 
superiori, in potenza anche se non in 
numero, alle proprie, sia di lasciarsi 
sfuggire l’occasione di aggredire con 
un rapporto di forze vantaggioso un 
gruppo di unità nemiche. Ciò com¬ 
porta, ovviamente, un atteggiamen¬ 
to piuttosto prudente, poco conso¬ 
no, almeno stando al film di Ejzen- 
stejn, con quello tenuto dai cavalieri 
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teutonici. Nel caso in cui, invece, il 
calcolatore controlli l’armata di 
Alexander Nevskij, ciò significa che 
il calcolatore, nell’arco di un’intero 
incontro, assumerà l’iniziativa di 
aggredire delle unità avversarie non 
più di un paio di volte, preferendo 
attendere che i cavalieri teutonici 
siano fortemente decimati dall’at¬ 
traversamento del lago; il che mi 
sembra in perfetta sintonia con 
quanto illustrato nel film. 
6050-6070 - Viene selezionata la 
mossa che, sulle basi delle variabili 
decisionali calcolate dal ciclo prece¬ 
dente, offre le prospettive più attra¬ 
enti. Dopo di che, dopo aver ripristi¬ 
nato il valore originale delle variabi¬ 
li contenenti le coordinate della uni¬ 
tà sotto esame, si salta ad una op¬ 
portuna sezione della subroutine 
1000, in modo da sfruttare gli stessi 
meccanismi utilizzati dalle unità 


controllate dal giocatore. 

7000-7999 - Questo sottoprogram¬ 
ma esamina se il tratto di campo di 
gioco su cui l’unità si è trasferita 
presenta per la sua conformazione 
fisica dei rischi. In particolare: 

7005 - Nel caso in cui, in corrispon¬ 
denza delle coordinate del punto, 
all’interno della matrice C di indice 
2 vi sia associato un valore numerico 
superiore a 90, il che sta ad indicare 
che il tratto in questione non è 
ghiacciato, si salta la riga successiva. 
7010 - Il valore indicante lo spessore 
del ghiaccio nel punto considerato 
viene diminuito di un valore pari 
alla metà del peso della unità che vi è 
passata, in questo modo il deteriora¬ 
mento del ghiaccio è proporzionale 
al peso delle unità che transitano 
sullo stesso punto. Il ghiaccio, quin¬ 
di reggerà al massimo uno o due 
passaggi di cavalieri teutonici (con 


l’armatura, per di più!), mentre dei 
fanti russi potranno transitare an¬ 
che ad interi gruppi di dieci o dodici 
sullo stesso punto prima di provoca¬ 
re dei crepacci. 

7020 - Nel caso in cui la variabile C 
di indice 2, corrispondente alle coor¬ 
dinate del punto in cui si trova la 
unità in questione, ha un valore di 
99, segnala cioè la presenza di terra¬ 
ferma, l’analisi viene interrotta. 
7030 - Nel caso in cui il valore nume¬ 
rico associato sia di 90 (^palude), si 
richiama la subroutine che segnala 
l’incidente capitato alla unità sud¬ 
detta, solo se questa è teutonica. 
7040 - Nel caso in cui il peso della 
unità in transito sulla casella in esa¬ 
me del campo di gioco, sia superiore 
al valore numerico associato alla ca¬ 
sella stessa, ed esprimente lo spesso¬ 
re del ghiaccio, si accede al sottopro¬ 
gramma che segnala la rottura del 
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ghiaccio stesso. 

8000-8999 - Sottoprogramma di 
controllo degli scontri. In particola¬ 
re: 

8000 - Il test consente di interrompe¬ 
re l’esame della situazione nel caso 
in cui la scomparsa dell’unità in se¬ 
guito alla sua ultima mossa (per es¬ 
sere stata inghiottita dal lago ghiac¬ 
ciato) abbia reso l’indagine inutile. 
8010 - Si accede al sottoprogramma 
che determina il numero delle unità, 
sia amiche che nemiche, all’interno 
della zona di controllo dell’unità che 
ha mosso per ultima. 

8110 - Nel caso in cui non ci sono 
truppe nemiche a distanza tale da 
consentire uno scontro, non è neces¬ 
sario proseguire nell’esame della si¬ 
tuazione. 

8120 - Si richiama la subroutine che 
determina l’entità del rapporto di 
forze tra i due schieramenti (compo¬ 
sti anche solo di una unità per parte) 
che partecipano allo scontro. 

8130 - In base ai dati calcolati dalla 
subroutine di cui sopra, vengono de¬ 
terminati dei valori percentuali pro¬ 
porzionali alla potenza dei due 
schieramenti che servono da limite 
per determinare la C.R.T. (Combat 
results table, tabella dei risultati ne¬ 
gli scontri), che determina l’esito de¬ 
gli scontri stessi. Il limite inferiore 
spetta, ovviamente, al più forte dei 
due schieramenti (come potenza, 
non come numero), in modo da ren¬ 
dere inferiori le sue probabilità per¬ 
centuali di subire danni nello scon¬ 
tro. Viene inoltre generato casual¬ 
mente un valore compreso tra 0 e 
100, diretto responsabile dell’esito 
dello scontro. 

8140 - Nel caso in cui il valore nume¬ 
rico casuale sia inferiore ad un terzo 
del limite percentuale associato allo 
schieramento amico, si accede al 
sottoprogramma che segnala ed 
opera l’eliminazione di tutte le unità 
amiche coinvolte nello scontro. 
8150 - Nel caso in cui il valore gene¬ 
rato casualmente sia compreso tra 
un terzo e due terzi del valore limite, 
si accede alla subroutine che deter¬ 
mina, nel caso delle unità russe il 


loro ferimento, e nel caso dei cava¬ 
lieri teutonici, il loro disarciona- 
mento. 

8154 - Nel caso in cui il valore sud¬ 
detto sia compreso tra due terzi ed il 
valore limite intero, spettante alle 
unità amiche, si accede alla subrou¬ 
tine che, per entrambi gli schiera- 
menti, ne designa il ferimento. 

8156 - Se il valore random è compre¬ 
so tra il limite per le unità amiche ed 
il limite suddetto più un terzo del 
restante valore percentuale si accede 
ad una subroutine analoga a quella 
di riga 8154, ma riguardante le unità 
nemiche. La distinzione si rende ne¬ 
cessaria a causa del meccanismo di 
registrazione delle unità che com¬ 
pongono i due schieramenti coin¬ 
volti nella scaramuccia. 

8160 - Analoga alla riga 8150; in 
questo caso, però, vengono coinvol¬ 
te le truppe avversarie. 

8170 - Analoga alla riga 8140, come 
sopra, però, non vengono rimosse le 
unità amiche, ma quelle avversarie. 
8500-8510 - Questa subroutine è di¬ 
rettamente responsabile della regi¬ 
strazione dei dati delle unità amiche 
coinvolte in uno scontro. 

In particolare: 

8500 - Nella matrice AM di indice 
AM (valore attuale del numero di 
unità amiche all’interno della 
Z.O.C.) vengono registrate le coor¬ 
dinate dell’unità (indice 1 e 2). 
Quindi si accede ad una subroutine 
che determina il numero di serie del¬ 
la unità coinvolta in base alla sua 
posizione (che è determinata univo¬ 
camente, poiché non sono possibili 
sovrapposizioni di unità diverse), in 
modo da poter determinare gli altri 
dati della unità. 

Nella matrice AM di indice 0, viene 
registrato il numero di serie progres¬ 
sivo suddetto (che rappresenta l’or¬ 
dine in cui le varie unità hanno dirit¬ 
to a muovere). Nella locazione di 
indice 3, viene invece registrato il 
valore numerico esprimente il peso 
della unità. 

8510 - Nella locazione di indice 4 
viene registrata la potenza attuale 
della unità negli scontri. 


8600-8610 - Analoga alle righe 8500- 
8510, per lo schieramento avversa¬ 
rio. 

9000 - Subroutine di clearing della 
vecchia posizione occupata dalla ul¬ 
tima unità che si sia mossa. 
10500-10590 - Sottoprogramma di 
caricamento dati da nastro, per con¬ 
sentire la prosecuzione di una parti¬ 
ta precedentemente interrotta. 
10900-10940 - Questa subroutine 
permette di ricostruire il campo di 
gara, sia come cornice che come car¬ 
tina, nella situazione in cui si trova¬ 
va precedentemente alla interruzio¬ 
ne. 

11000-11999 - Subroutine di salva¬ 
taggio su nastro di una situazione 
intermedia. In particolare: 

11010 - Viene salvata, in una varia¬ 
bile MC$, la variabile C$, indicante 
a quale dei due schieramenti la mos¬ 
sa spetta, in modo da, non commet¬ 
tere errori di attribuzione della mos¬ 
sa, al momento di riprendere una 
partita interrotta. 

12000-12020 - Questo sottopro¬ 
gramma provvede a segnalare al 
giocatore il fatto che una o più unità 
siano state inghiottite dalla superfi¬ 
cie ghiacciata del lago. In particola¬ 
re: 

12000 - Viene azzerata la locazione 
di indice 2 associata alla zona del 
campo di battaglia in cui si sono 
creati dei crepacci. In questo modo, 
lo spessore del ghiaccio viene azze¬ 
rato, quindi la casella in questione 
non è più in grado di sostenere il 
peso di una qualsiasi unità, per pic¬ 
colo che esso sia. 

12005 - Alla locazione di memoria di 
indice I, associata alla casella, viene 
assegnato il valore corrispondente 
al numero di poke del carattere che 
contraddistingue il crepaccio crea¬ 
tosi. 

12020 - Si accede, con un valore op¬ 
portuno della variabile Q, ad una 
subroutine che provvede ad aggior¬ 
nare i valori di potenza negli scontri 
per la unità scomparsa, oltre che i 
valori esprimenti il punteggio par¬ 
ziale della partita. 

13000 - Subroutine di temporizza- 
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zione delle scritte. 

14000-14020 - Questo sottopro¬ 
gramma ha funzioni analoghe a 
quelle assegnate alla subroutine 
12000, in questo caso, però, viene 
segnalato che la unità che ha appena 
effettuato una mossa, è rimasta in¬ 
trappolata in una zona paludosa. In 
particolare: 

14000 - La locazione di indice 1 as¬ 
sociata alla zona di campo di batta¬ 
glia in questione, viene aggiornata 
con il valore che contraddistingue in 
notazione normale (NC), la unità 
intrappolata. In questo modo, nel 
caso in cui la battaglia venga inter¬ 
rotta e salvata su nastro, la unità 
intrappolata, verrà correttamente 
riportata sulla cartina, così come i 
crepacci provocati da precedenti 
scomparse. 

14020 - Analoga alla 12020. 

15000 - Display della zona di campo 
di battaglia precedentemente “co¬ 
perta” dall’ultima unità mossa. 
16000-16999 - Subroutine di aggior¬ 
namento del valore di potenza negli 
scontri per una unità che venga, da 
un qualsiasi accidente, “tolta” dal 
gioco. 

17000-17010 - Questo sottopro¬ 
gramma esamina i casi in cui lo spo¬ 
stamento attribuito dal calcolatore, 
o quello scelto dal giocatore, per la 
unità cui tocca muovere, determini¬ 
no l’uscita della stessa dal campo di 
gioco o siano impossibilitati per la 
presenza, nello stesso punto di altre 
unità. In particolare: 

17000 - Nel caso in cui si esca dal 
campo di gioco, si accede ad una 
opportuna subroutine che segnala la 
cosa. 

17005 - Viene acquisito il carattere 
presente nella casella di “destinazio¬ 
ne” della unità in questione, nel caso 
in cui il carattere suddetto coincida 
con quelli che contraddistinguono le 
unità sul campo di gioco, le coordi¬ 
nate della unità vengono poste 
uguale a quelle di “partenza”. 
18000-18020 - Questo sottopro¬ 
gramma segnala la “fuga” di una 
unità dal campo di gioco. In partico¬ 
lare: 


18000 - Viene cancellata la vecchia 
posizione della unità fuggita, rim¬ 
piazzandola con il carattere che essa 
copriva sulla cartina. 

18020 - Analoga alle righe 12020 e 
14020. 

19000-19020 - Subroutine di servizio 
per la determinazione dei caratteri 
che contraddistinguono le unità ne¬ 
miche, in base a quelli che contrad¬ 
distinguono le amiche. 

20000-20540 - Questa subroutine, 
per così dire di “ricerca associati¬ 
va”, determina l’indirizzo della uni¬ 
tà coinvolta in uno scontro - ed in 
base a questo indirizzo, altri suoi 
dati -, partendo dall’unica cosa che 
sia nota, da una ricerca “sul cam¬ 
po”, cioè la coppia di coordinate che 
la contraddistinguono. In particola¬ 
re: 

20000 - Inizializzazione dell’indice 
W di ricerca e test per stabilire se la 
unità ricercata appartenga all’uno o 
all’altro dei due schieramenti. 
20020-20040 - Ricerca tra lo schiera¬ 
mento russo. 

20500-20540 - Ricerca tra lo schiera¬ 
mento teutonico. 

21000-21020 - Altra subroutine di 
servizio che determina qual’è la va¬ 
riabile “stringa” che contraddistin¬ 
gue le forze avversarie, partendo da 
quella che identifica le amiche. 
22000-22010 - Mediante un ciclo, 
vengono rimosse, accedendo ad una 
opportuna subroutine, che provve¬ 
de anche ad aggiornare le variabili 
associate, le unità amiche che hanno 
avuto la peggio in uno scontro. 
23000-23540 - Questo sottopro¬ 
gramma provvede a comunicare il 
ferimento delle unità russe (nel caso 
in cui queste siano controllate dallo 
schieramento, la cui ultima mossa 
ha determinato lo scontro) od il dis- 
arcionamento, nel caso in cui le uni¬ 
tà siano teutoniche. In particolare: 
23010 - Nel caso in cui la unità in 
questione sia russa, si salta ad una 
opportuna sezione della subroutine. 
23020-23040 - Questa sezione di su¬ 
broutine si occupa del disarciona- 
mento delle truppe tedesche. In par¬ 
ticolare: 


23020 - Viene aperto il ciclo che con¬ 
sente di stabilire la sorte degli AM 
contingenti che partecipano allo 
scontro. Viene inoltre determinato 
l’indice IN, corrispondente al nume¬ 
ro d’ordine della unità. Nel caso in 
cui il peso della unità di cavalleria in 
questione sia già pari a tre unità (il 
che significa che l’unità stessa è già 
stata disarcionata) si richiama il sot¬ 
toprogramma che comunica il feri¬ 
mento della unità stessa. In quest’ul¬ 
timo caso il ciclo viene aggiornato, 
in questo modo, nel caso in cui nello 
scontro siano coinvolte più unità, 
che hanno avuto sorte differente in 
scontri precedenti, si possono anche 
avere esiti differenti per le varie uni¬ 
tà che costituiscono il gruppo impe¬ 
gnato nello scontro. 

23025 - Vengono aggiornate alcune 
variabili in base all’ipotesi che l’uni¬ 
tà sia stata disarcionata. 

23027 - La variabile G di indice 0 
associata all’unità in questione vie¬ 
ne diminuita di dodici unità, in que¬ 
sto modo vengono disarcionati sia 
cavalieri fino a quel momento illesi, 
sia cavalieri che, pur rimanendo in 
sella, siano stati precedentemente 
feriti. Viene inoltre aggiornata la va¬ 
riabile di indice 4 che contiene gli 
handicap dovuti a ferimenti o, ap¬ 
punto, disarcionamento, e che con¬ 
sente di rallentare il procedere di 
unità che siano state ferite o, come 
in questo caso, appiedate. 

23030 - Vengono mostrate le scritte 
che comunicano al giocatore l’acca¬ 
duto. 

23500 - Analoga alla 23020 nel caso 
del ferimento delle unità russe; In 
questo caso, se le unità in questione 
sono già state ferite (la qual cosa è 
rappresentata dal valore che espri¬ 
me la potenza negli scontri eguaglia¬ 
to a 1.5), si accede alla subroutine 
che segnala la “morte” dell’unità. 
23510-23535 - Analoghe alle 23025- 
23030. 

24000-24540 - Rappresenta l’esatto 
simmetrico delle righe 23000-23540, 
la sola differenza è rappresentata 
dal fatto che in questo caso ad avere 
la peggio sono le unità avversarie di 
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quella che ha, con la sua mossa, pro¬ 
vocato lo scontro. 


25000-25010 - Subroutine di servi¬ 
zio, consente l'aggiornamento della 
situazione della singola unità, oltre 
che del punteggio generale, in segui¬ 
to agli scontri. 

26000 - Questo sottoprogramma 
consente di segnalare il disarciona- 
mento di una unità diminuendone il 
valore che ne esprime il peso. 

27000 - Questo sottoprogramma fa 
lampeggiare le unità che hanno avu¬ 
to la peggio negli scontri. 
28000-28020 - Questa subroutine 
provvede, con modalità analoghe a 
quelle viste in 23000, a rimuovere 
dal campo di gioco le unità “morte” 
e ad aggiornare opportunamente le 
variabili delle unità stesse in modo 
da escluderle dal corso della partita. 
Questa subroutine viene attivata nel 
caso in cui perisca una delle unità 
“amiche”. 

29000-29020 - Analoga alla prece¬ 
dente, nel caso in cui a “morire” 
siano i “nemici”. 

30000-30090 - Questo sottopro¬ 
gramma, in base alla direzione che il 
calcolatore od il giocatore ha scelto 
per la unità cui spetta la mossa, de¬ 
termina l’incremento delle coordi¬ 
nate della unità stessa. 

31000-31110 - Questa subroutine 
provvede a calcolare la numerosità 
dei due schieramenti coinvolti in 
uno scontro. In particolare: 

31010 - Vengono azzerate le variabi¬ 
li AM e NE, che sono destinate a 
contenere il numero di unità che 
compongono i due schieramenti. 
Viene quindi aperto il ciclo che con¬ 
sente di esaminare le nove caselle 
disposte a quadrato di lato tre attor¬ 
no alla pedina che per ultima si è 
mossa. 

31020 - Viene acquisito il carattere 
della casella di coordinate Y+DY e 
X+DX. Nel caso in cui il carattere 
in questione coincida con uno dei 
due caratteri che contraddistinguo¬ 
no le unità dello stesso schieramento 
di quella che ha effettuato la mossa, 
viene aggiornata la variabile AM e si 
richiama una opportuna subroutine 
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che provvede a registrare i dati es¬ 
senziali della unità in questione, in 
modo da poterli utilizzare negli 
scontri. 

31030 - Analoga alla precedente nel 
caso di una unità nemica. 

31040 - Questa riga è fondamental¬ 
mente avulsa dal resto del contesto 
ed è stata inserita in questo sotto¬ 
programma semplicemente per co¬ 
modità e per questioni di rapidità (in 
questo modo non è necessario ripe¬ 
tere il ciclo aH’interno del quale il 
test viene eseguito in altro ambien¬ 
te). Viene infatti aggiornata la varia¬ 
bile che segnala la presenza di zone 
paludose attorno alla casella occu¬ 
pata dall’unità che ha effettuato l’ul¬ 
tima mossa. 

32000-32999 - Questo sottopro¬ 
gramma calcola la potenza dei due 
schieramenti che si confrontano in 
uno scontro, in base ai dati di poten¬ 
za delle singole unità, così come so¬ 
no stati registrati dalla subroutine 
precedente. 

In particolare: 

32000 - Azzeramento delle variabili 
che contengono i valori totali di po¬ 
tenza dei due schieramenti. 

32010 - Ciclo di calcolo della poten¬ 
za delle forze “amiche” rispetto al¬ 
l’ultima pedina che si è mossa. 
32020 - Ciclo di calcolo delle forze 
totali “nemiche”. 

33500-33540 - Questo sottopro¬ 
gramma viene richiamato nel caso 
in cui l’esito della subroutine 8000, 
sia stato di “ferimento” per le trup¬ 
pe che costituiscono il gruppo di 
supporto nello scontro per l’ultima 
pedina giocata. In particolare: 
33500 - Nel caso in cui il cavaliere 
teutonico in questione sia già stato 
ferito in precedenza, si accede alla 
subroutine che rimuove la pedina 
corrispondente dalla scacchiera di 
gioco, in quanto “morta”. 
33510-33537 - In tutto e per tutto 
uguali alle 23510-23535. L’unica dif¬ 
ferenza è rappresentata dal fatto 
che, in questo caso, ad essere “feri¬ 
te” sono le unità di cavalleria teuto¬ 
niche. 

34500-34540 - Analoghe alle righe 


33500-33540, la differenza è data 
dall’appartenenza delle truppe ferite 
allo schieramento cui appartengono 
gli avversari della unità che, con la 
sua ultima mossa, ha provocato lo 
scontro che ha portato al ferimento 
delle truppe stesse. 

35000-35020 - Questa subroutine di 
servizio si occupa di calcolare il pun¬ 
teggio parziale della partita. In par¬ 
ticolare: 

35000-35010 - I due cicli provvedo¬ 
no a sommare i valori di potenza 
negli scontri di tutte le unità che, per 
i due schieramenti, sono ancora atti¬ 
ve, vale a dire hanno valori della 
variabile R o G di indice zero positi¬ 
vi (i test nei due cicli hanno appunto 
lo scopo di escludere i valori negati¬ 
vi che segnalano la fuga o la scom¬ 
parsa dell’unità dal campo di gioco, 
perchè inghiottita dal lago ghiaccia¬ 
to o intrappolata dalla palude). 
35020 - Ai valori RP e GP, che rap¬ 
presentano la somma delle potenze 
negli scontri per i due schieramenti, 
calcolate con le modalità di cui so¬ 
pra, vengono sommati i valori PR e 
PG, aggiornati direttamente nel cor¬ 
so del programma, che rappresenta¬ 
no il numero di unità ancora attive 
per i due schieramenti. 

I valori così ottenuti, vengono quin¬ 
di sottratti dai-punteggi iniziali che, 
calcolati con criteri analoghi ai sud¬ 
detti, rappresentano il rapporto di 
forza di partenza, esistente tra idue 
eserciti. 

I punteggi così ottenuti vengono 
quindi utilizzati dalla subroutine 
che si occupa di mostrarli al giocato¬ 
re, poiché rappresentano il numero 
che, espresso in base ai concetti di 
potenza negli scontri più volte visti, 
indica le perdite che i due schiera- 
menti si sono reciprocamente inflitti 
fino a quel momento, nel corso del 
gioco. 

36000-36999 - Questo sottopro¬ 
gramma, comunica la vittoria della 
cavalleria teutonica. 

37000-37999 - Subroutine di funzio¬ 
ne analoga alla precedente, in que¬ 
sto caso la vittoria spetta alla fante¬ 
ria russa. 
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mo volume "Impariamo a 
programmare in Basic con il 
VIC/CBM" per ciò che ri¬ 
guarda gli argomenti che 
trattano i file su disco e cas¬ 
setta, la stampante VIC 1515, 
i cartridge. 

300 pag. L. 22.000 
Cod. 338D 

PROIBITO! 

COME AVER CURA 
DI UN COMPUTER 

Tutto quello che bisogna sa¬ 
pere per non mandare in tilt 
un calcolatore. 

208 pag. L. 14.000 
Cod. 333D 


Libri firmati JACKSON 


A* 
A* 




La Biblioteca 
che fa testo 


INTERFACCIAMENTO 
DELL’APPLE 

Il libro indispensabile a un 
uso “esterno" dell'APPLE: 
controllo dei dispositivi, tem¬ 
perature, soglie luminose, li¬ 
quidi e inoltre, modem stam¬ 
panti seriali e interfacce. 

208 pag. L. 14.000 
Cod. 334B 

APPLE II GUIDA ALL’USO 

Per imparare a conoscere e 
usare uno dei sistemi più dif¬ 
fusi al mondo. 

400 pag. L. 26.000 
Cod. 331P 
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38000-38020 - Questo sottopro¬ 
gramma, che viene richiamato dopo 
ogni mossa, serve a verificare l’ipo¬ 
tesi che uno o l’altro dei due schiera- 
menti non abbia più unità attive, 
pur non avendo raggiunto altrimen¬ 
ti le condizioni di terminazione. Ciò 
si rende necessario poiché l’analisi 
della situazione, per questioni di 
congruenza logica, viene compiuta 
solo al termine dell’intero ciclo di 
gioco dei due schieramenti (non 
avrebbe affatto senso dichiarare 
uno dei due eserciti vincitore, se lo 
schieramento sconfitto ha ancora 
delle unità, cui toccherebbe muove¬ 
re nel seguito della partita per com¬ 
pletare il turno, e che potrebbero 
capovolgere la situazione, coinvol¬ 
gendo le unità avversarie in nuovi 
scontri). È evidente che, nel caso 
supposto nel test di cui sopra, non 
avrebbe senso proseguire la partita 
fino al termine del turno di gioco 
dello schieramento superstite, poi¬ 
ché questo non avrebbe più avversa¬ 
ri. In particolare: 

38000-38010 - Nel caso in cui l’ar¬ 
mata russa non abbia più unità in 
campo viene decretata (tramite la 
opportuna subroutine) la vittoria 
dell’esercito teutonico e viceversa. 
38020 - Nel caso in cui il gioco prose¬ 
gue regolarmente, si richiama la su¬ 
broutine che provvede a “ripristina¬ 
re” gli handicap eventualmente az¬ 
zerati dall’ultima mossa. 
39000-39020 - Questo sottopro¬ 
gramma si occupa di comunicare ed 
aggiornare opportunamente le va¬ 
riabili coinvolte nel “ferimento” 
delle truppe che sostengono l’unità 
che ha provocato lo scontro. Da no¬ 
tare che, nel caso delle truppe russe, 
una simile subroutine già esiste 
(23500-23540), accoppiata però, nel 
caso delle truppe germaniche, alla 
subroutine che si occupa del disar- 
cionamento di quest’ultime. Questo 
sdoppiamento ha ragioni logiche da 
ricercarsi nella necessità di simme¬ 
tria delle subroutine che decidono i 
vari esiti dello scontro. 

La stessa subroutine di controllo 
(8000) viene infatti richiamata da 
18 


entrambi gli schieramenti, siano essi 
russi o tedeschi, a controllo del com¬ 
puter o del giocatore, nel momento 
in cui si provoca lo scontro. Suppo¬ 
niamo che lo scontro venga affron¬ 
tato con un rapporto di 15 a 3 per lo 
schieramento tedesco; in questo ca¬ 
so il rapporto percentuale è di 83,33 
probabilità su cento di esiti favore¬ 
voli ai cavalieri dell'Ordine teutoni¬ 
co, suddiviso tra un terzo di proba¬ 
bilità che l’esito sia di “morte” delle 
unità nemiche e due terzi che com¬ 
portano il ferimento delle stesse 
(prescindendo dalla loro attuale si¬ 
tuazione); di questi due terzi, però, 
un terzo passerebbe tramite la su¬ 
broutine 23000 ed un terzo tramite 
la 39000. Nel caso dell’esito favore¬ 
vole alle truppe russe (rapporto per¬ 
centuale del 16,67%), le probabilità 
suddette sono equamente suddivise 
tra quelle che vedono la morte dei 
cavalieri coinvolti nello scontro, 
quelle che ne vedono il ferimento e 
quelle che vedono il disarcionamen- 
to degli stessi. In particolare: 

39010 - Nel caso di truppe russe si 
richiama, appunto, la subroutine 
che svolge già, in altro ambiente, la 
stessa funzione. 

39020 - Nel caso di truppe tedesche, 
è invece necessario aprire il ciclo tra 
le varie truppe che costituiscono il 
gruppo coinvolto nello scontro; cal¬ 
colando gli indici opportuni in ma¬ 
niera non differente da quanto fatto 
in 23020. Quindi si richiama la su¬ 
broutine utilizzata al medesimo sco¬ 
po da altri sottoprogrammi. 
40000-40020 - Analoga alla subrou¬ 
tine precedente nel caso in cui ad 
essere ferite siano state le truppe av¬ 
versarie di quelle che hanno provo¬ 
cato la scaramuccia. 

41000-41510 - Questo sottopro¬ 
gramma, richiamato dopo ogni 
mossa, provvede a ripristinare gli 
handicap che consentono di rallen¬ 
tare i movimenti di quelle unità che 
sono state menomate (sia perchè fe¬ 
rite sia, nel caso dei soli cavalieri 
tedeschi, perchè private delle loro 
cavalcature). In particolare: 

41000 - Se l’ultima unità mossa è 


russa si richiama la opportuna se¬ 
zione di programma. 

41010 - Se il valore che esprime il 
peso della unità teutonica è superio¬ 
re a tre (il che sta ad indicare che il 
cavaliere è ancora “in sella”), si in¬ 
terrompe l’esame. 

41020 - Se il valore che esprime la 
potenza della unità è superiore a 1.5, 
il che significa che l’unità, pur essen¬ 
do appiedata non è ferita, la variabi¬ 
le G di indice 4, che contiene l’han- 
dicap attribuito alla unità, viene ri- 
inizializzata ad 1, in modo da egua¬ 
gliare la velocità di avanzamento del 
cavaliere tedesco disarcionato a 
quella delle truppe a piedi russe, vale 
a dire, la metà della velocità delle 
truppe teutoniche a cavallo. 

41030 - Nel caso in cui il valore sud¬ 
detto fosse inferiore a 1.5 (l’unità 
fosse cioè, oltre che appiedata, an¬ 
che ferita), l’handicap è pari a due. 
In questo modo le unità ferite e ap¬ 
piedate risultano più lente di quelle, 
pure a piedi, ma illese. 

41500 - Le unità russe illese (valore 
di potenza negli scontri superiori ad 
1.5) vengono escluse dall’esame. Da 
notare che la loro velocità è già pari 
alla metà di quella delle unità tede¬ 
sche a cavallo, a causa del loro nu¬ 
mero che le costringe ad effettuare 
una sola mossa nel ciclo che consen¬ 
te alle unità teutoniche, presenti in 
minor numero, di compierne due. 
41510 - analoga alla 41030. 
59000-59999 - Questa subroutine è 
del tutto inutile nella, attuale, eco¬ 
nomia del programma. Essa può es¬ 
sere considerata una forma di reper¬ 
to archeologico dell’era del compu¬ 
ter. È infatti servita in sede di debug 
del programma per rendersi conto 
del funzionamento del meccanismo 
logico che portava il computer a sce¬ 
gliere le proprie mosse; e può, per¬ 
tanto, non essere inserita nel pro¬ 
gramma. Chi volesse vederne gli ef¬ 
fetti, però, dovrebbe solo (oltre che, 
naturalmente, trascriverla) inserire 
una GOSUB59000, prima del 
NEXT in riga 6050. 

In questo caso, quando la mossa 
spetta al calcolatore, comparirebbe- 









ro, sull’ultima riga dello schermo: 

— il numero del tastierino numerico 
associato alla direzione che il calco¬ 
latore sta prendendo in esame. 

— il valore che esprime la conve¬ 
nienza a muoversi in quella direzio¬ 


ne. 

— il numero di truppe amiche e ne¬ 
miche aH’interno della Z.O.C. nella 
nuova posizione. 

— i valori di potenza negli scontri 
per i due schieramenti suddetti. 


— il valore random. 

N.B. - per consentire una buona let¬ 
tura del debug, è necessario premere 
un qualsiasi tasto per far si che il 
computer passi ad esaminare la suc¬ 
cessiva alternativa. 



Listato 1. Programma “Battaglia del lago ghiacciato”. 






Seguito “Battaglia de! lago ghiacciato". 

0 r*= " :gh=7. 



120 P0KE32768,240 :POKE32806,238 :R0KE33 

5:VH=5.5:GH=81:RH=87:GR=215:RR=209:NR=6 



608,237 :P0KE33646,253 :FORI = 1T028 

0 



130 PRI NTU$ < I +1 > " S 1 ■" TRB <33 > " .a ! 1" : NEXT 

5 HG=30 : DIMW* < 25 > , R < 20 .4 ).. C < 20,37.2 > R 



;FORX1 = 1TQ37: FORV1 = 1TO20 

<NR, 4 > , G <HG , 4 >RM <9, 4 > NE <9,4> 



148 C < V1,X1,1)=PEEK<32768+V1#40+X1> : IF 

3 MG=480:MR=240:CD=0 



C<V1,X1,1)0160THENC< V1,X1,2)=99 ;GOTO 14 

10 F0RI = 1T025 sW*< I >=LEFT*<R*, I > :NEXT sT 



7 

P <0 ? = 1:TP<1>=~1sR6=HR:G6=NG 



145 C <V1,X1,2 >aOH+RND<RND<TI)+RHD<X1> + 

12 TV* < 1 > = " X CflVRL. IERI TEUTONICI " : TV* < 



RNG<V1))*VH 

2 > = "SONO STRTI DISRRCIOHRTI" 



147 IFC <V1,X1,1)=45THENC<V1.X1.2>=90 

13 VT* 1 > = " I CONTRO INI RUSSI " : YT* < 2> = " 



150 NEXT:NEXT 

SONO STRTI FERITI" 



155 FORI = 1TONR:C1=RN: IFR<I,0 >C-3THEN15 

15 REM DRTR ALEXANDER NEV5KIJ 



9 

16 DRTR2,10,3,10,4,10,5,10,6,10,10,7.1 



156 I FF'EEK <32763+R < I , 1 ) #40+R < I , 2 > ) = 160 

1,7,12,7,13,7,14,7 



THENC1=RR 

17 0RTR1S,5,19,5,20.5,21,5.22,5.2,9.3, 



157 P0KE32768+R<1,1)*40+R <1.2 >,C1 

9 ,4,9 ,5, 9 .r 6,9 



159 NEXT 

18 DRTR10,6,11,6,12,6,13,6,14,6,18,4,1 



160 FOR 1 = 1 TONO sClaGN : IFG< I ,0X-3THEN16 

9,4,20,4,21,4,22,4,2,7,3,7,4,7,5,7,6,7 



9 

19 DRTR10,4.11,4,12.4,13,4,14.4,24,5,2 



163 IFPEEK k 3276S+G < 1,1 ) #404-0 <1,2 !•' — 16G 

5,5,26,5,27,5,28,5,2,5,3,5,4,5,5,5,6,5 



THENC1=GR 

20 DRTR.32,2,34,2,35,2,34,1,35,1,18,2,1 



165 P0KE32768+G<I,1)*40+G<I,2),C1 

9,2,20,2,21,2,22,2 



169 NEXT: IFMC*="0"THEN195 

25 FORI = 1 TOUR :RERDR<I,2 >:REfìDR<1,1> ; NE 



175 IFR <CR, 0 >O0THEN190 

XT 



177 IFR<CR,4 »0THENR <CR , 4 >=R < CR, 4 >-1 : G 

30 REM DRTR GROSSEN MEI STER VON BRLK 



OTO190 

37 DRT fi 1 , 12,2 , 12 , 1 , 13,2 , 13,1 , 14,2,14,2 



180 C*="R";GOSUB500:GOSUB38000 

,18,3,18,4,18,5,20,6,20,7.20,8,20 



190 CR=CR+-1 :1FCR>NRTHENCR = 1 

40 DRTR9,20,10,20,11,20,12,20,13,20,14 



195 IFG <CG,0)C=0THEN210 

,18,15,18,16,18,18,16,19,16,20,16 



197 IFG<CG,4 >>0THENG<CG,4 >=0<CO,4 >-1 : G 

43 DRTR21,16,22,16,23,16,37,3,37,4,37, 



0T0210 

5 



200 C*="G":GOSUB500:GOSUB38G00 

45 FOR I = 1 TONO ; RERDG < I . 2 > : RERDG <1.1 > : HE 



210 CG=CGh- 1 :: I FC0>NGTHENC0 = 1 

XT:CR=1:CG=1:OOSUB3000 



220 GOSUB4000:GOTO175 

47 I FCD= 1THENOOSIJB10900 : GOTO 155 



500 REM GESTIONE UNITA-' 

50 DRTR36 , ", 33 , " -3T 1" , 31 , " — 5T 



510 IFC*="G"THENNC=GN:RC=GR:X=G<CG,2 > : 

■",30,"—■" ,30, "-ì& ■P" 



V=G<CG,1):P=G < CG,3 > 

53 DRTR 19, "3F - —a «P-".16 



515 IFC*="R"THEHNC=RH:RC=RR:X=R<CR,2) : 

; n & - a —" 



V=R<CR,1):P=R< CR,3) 

55 DRTR 13, " - iW ■-- 



520 X0=X : V0=V :GOSUB5000 :1FC*■= JK*THEN00 

-",9," W 13 W-" 



SUB6G00:GOTO540 

57 DfìTfis, " isp «p- 



530 GOSUB1000 

-"^1.."—a nr- 



540 IFC*="R"THENR<CR,2)=X:R <CR,1>=V 




550 IFC*="G »THENG< CG,2>=X:G<CG,1>=V 

60 DRTR3 . "a ■- 



560 GOSUB8000 

_» r 3 r wr __ 



999 RETURN 

63 DRTR3,"fl W W —" 



1000 REM INPUT 

,3, "3 HP" 



1010 FG=0:PRINTW*<24)"DIREZIOHE <1-9>/ 

65 DRTR3 , " ■»" . 4 , '"P3 



FINE <0)" 

IT" ,5, "T3 IT",6,"'la ST" 



1020 GOSUB5000 :GETDR*: IFDR*="»THEN1020 

100 F'R I NT " 3" : F'R I NT : FOR I-0TO18 : RERDT : RE 



1030 DR=VRL <DR*) : IFDR < 0fiNDDR > 9THEN1020 

ROC* i F'R INTW* < I +2 > TRB < T > C* : NEXT 



1035 IFDR=0THEHGOTO11000 

1 10 FOR I = 1T037 ; FOR JK--0TO1 : P0KE32723+1 + 



1040 GOSUB9000:GOSUB30800 

JK#920+TP < JK >#40,192: NEXT : NEXT 



1050 GOSUB17000 : 1FFG=1THENRETURN 
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Seguito "Battaglia del lago ghiacciato”. 

1955 GOSUB7000:1FFG=1THEHRETURN 
1060 GOSUB15000 :TC=RC:RC=NC:NC=TC:GQSU 
B5000 

1399 RETIJRH 

3000 FORI=lTOHR:R<I,3> = 1:NEXT:FORI=lTO 
NG:G<I,3>=8 :NEXT:RRÌ="ALEXANDER HEVSKIJ 

3003 FORI = 1TOUR :R <I,©> =3 :NEXT:FOR1 = 1TO 
NG:GCI,0 >=15 :NEXT:PR=NR:PG=NG 
3005 BLÌ = "3_R BATTAGLIA DEL LRGO GHIRO 
CIATO*" :GÌ="J3GROSSEN MEI STER VON BRLKH" 
3007 R0$="PRINCIPE RLEXRHDER NEVSKIJ" 
3010 PRI NT " 3" TRB < 4 >BLÌ : F'R INTWÌ <3 >TRB < 8 
> " DALL •' ”CHRì <34 ) RRÌCHRÌ <34 > 

3020 U= 11 : PR I NT Ut < 5 > TRB < IO " DI S. M. E J 
ZENSTEJN” 

3030 PRINTUÌ<7>TRB<35"HRI BRTTRGLIE IN 
CORSO": : INPUTRÌ 

3040 RÌ=LEFTÌ<RÌ, 1 > : IFRÌO"S ,, RNDRìO"N 
" THEN3030 

3050 IFRì="S"THENGOSUB10508 :RETURN 
3100 PRINTHÌ<W > TRB<3 >"VUOI INTERPRETfiR 
E LR PRRTE DI:" 

311 © PR I NTHÌ < W+2 > TRB <3 > " - " R0Ì : PR IN 

TWìH+4>TRB<3> "J3G! -"Gì 
3120 GETRì:IFRÌ=""THEN3120 
3130 IFRÌO " G " RNDRÌO " R " THEH3120 
3140 JGÌ="R» :JKÌ*"G":IFRì="G"THENJGÌ=" 
G":JKÌ="R" 

3150 RETURN 

4000 REM CONDIZIONE DI TERMINAZIONE 
4005 I FOGO 1 THEHRETURN 

4010 GOSUB35000:1FJKÌ=”G"THENSÌ=STRÌ<R 
7 > + "- S" +STRÌ < G7 ) + "■" 

4020 IF.JKÌ* "R"THEHSÌ= "3" +STRÌ<G7> + ”■-" 
+STRÌCR7) 

4030 PRINTHÌ<24 >"PUNTEGG10 :"Sì :GOSUB1 
3000 :GOSUB9000 
4040 IFGP>RP*3THEN36000 
4050 IFRP>=GPTHENGOSUB37000 
4993 RETURN 
5000 REM DISPLRV 

5010 FORQB=1TO30:POKE32768+V*40+X,NC:P 
OKE32768+V#40+X, RC sNEXT : RETURN 
6000 FG=0;XK=X:VK=V:FORDR=1T09:X=XK:V= 
VK : GOSUB30000 : DD DR > =0 

6016 IFCì="R"THEHDD<DR )=DDCDR > + <V-VK>* 
75 

6017 IFCÌ= "G"THENDD< DR > =DD <DR > + < VK-V:> * 
75 

6019 K9=RND<TI+P1+P2+X+V>:DD<DR >=DD<DR 
>-RBS<X-XK>*10-RBS<V-10>*50-RBS<X-10>*5 

6020 EE=PEEK<32768+V*40+X>:IFEE=160THE 
ndd<:dr::'=ddcdr>-i 

6025 IFEE=160RNDDR=5RNDCÌ="G"THENDD<DR 
.■*=—3333 i GOT06050 

6030 IFX< 10RX>370RV< 1 ORV>20THENDD < DR> = 
-399 

6035 I FEE=214THENDD <. DR > =-9399 : GOTO6050 
6037 IFEE=45RNDCì="G"THENDD < DR>=-9999: 
GOTO5050 


Seguito "Battaglia del lago ghiacciato”. 

6040 IF<EE=31OREE=87OREE=215OREE=209>R 
4D0RO5THENDD k DR > =—3993 :GQTO6050 

6046 PP=0 :GOSUB31000 :1 FNE=0THENDD <. DR > = 
OD C DR >+AM/25+K9-.5-PP:GOTO6050 

6047 GOSUB32000:DD<DR > = <P1-P2 >* 100+K9- 
. 5-PP 

6050 NEXT:PM=-10000 :DR=INT <RNDCTI>*9+1 
> :F0RRD=1T03 

6860 I FDD< RD ;■ >=PMTHENPM=DD C RD> :DR=RD 
6070 NEXT:X=XK:V=VK:GOTO1040 
7000 REM GHIACCIO SI ROMPE ? 

7005 FL=0:1FC <V©,X0,2 >>=90THEN7020 
7010 C < V0,X0,2 >=C<V0,X©,2 >-P/2:X1=X0:V 
1=Y0:REM GOSUB2000 
7020 IFC ■; V , X , 2 > =39THENRETURN 
7030 IFC < V,X,2 > =90ANDCÌ="G"THENGOSUB14 
000:RETURN 

040 TC=NC:NC=RC:RC=TC: IFP>=C<V,X,2>TH 
ENGOSUB12000 

7999 RETURN 

8000 IFFL=1THENFL=0:RETURN 
8010 GOSUB31000 

8110 IFNE=0THENRETURN 
8120 GOSUB32000 

8130 K1 =P2# 100/ < P1+P2 ') :K2=P 1 * 100/<P1+P 
2 >:K=RND<TI+P1+P2 > *100 
8140 IFK<=K1/3THENGOSUB22000:RETURN 

8150 I FK>K 1 /3RNDK<=K 1 *.. 66THENGOSUB2300 
0: RETURN 

8154 IFIO K1 %. 66RNDK<=K 1THEHGOSUB39000 : 
RETURN 

8156 IFK>K1RNDK<=<K1+K2/3>THENGOSUB400 
00 :RETURN 

8160 IFIO <K1+K2/3>RNDK<=CK1+K2*.66 >THE 
NGOSUB24000 : RETURN 

8170 IFK>CK1+K2*.66 >THENGOSUB25010 :RET 
URN 

8500 RM <RM,1>=V+DV:RM<RM,2 > =X+DXsDÌ=CÌ 
; GOSUB20000 : RM < RM0 >=H : RM <. RM... 3 > =H 
8510 RM<RM,4 >=K:RETURN 

8600 HE<NE,1>=V+DV:NE CHE,2>=X+DX:DÌ=NÌ 
: GOSUB20000 : NE v NE0 ? =W : HE < NE . 3 > =H 
8610 HE < HE4 > =K : RETURN 
8999 RETURN 

3080 F0RQQ=33688T033728 : POKEQQ ,r 32 : NEXT 
;RETURN 

10500 REM CARICAMENTO DR PROGRAMMA 
10510 CD=1 :MCÌ=CÌ:PRINT"3"Wì<4 >"NOME D 
ISTINT IVO DEL FILE": INPUTNÌ 
10520 PRINTWÌ<7>"RIAVVOLGETE LR CRSSET 
Tfl CONTENENTE IL":PRINT"FILE DATI." 

10530 PR I NT " FRONT I "s I NPUTZì : IFL.EFTÌ <Z 
ì1 > O " S ” THEN 1052© 

10540 OPEN 1,1,0 , NFì : I INPUT# 1 , CR : INPUT# 1 
,CG: INPUT#1,PG; INPUT#1,PR 
10550 1NPUT#1,MCì:INPUT#1,JKÌ : INPUT#1, 
JGì:FORI1=1TO20:FORI2=1T037:FORI3=1T02 
10560 INPUT#1,CC11,12,13):NEXT:NEXT:NE 
XT 

10565 INPUT# 1,R6 : INPUT#1 ,G6 
10570 FOR11 = 1TONR:FOR12=0TO4:1NPUT#1,R 
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La battaglia 
del lago ghiacciato 


Seguito “Battaglia del lago ghiacciaio”. 

<I1,I2>sNEXT:HEXT 

10530 FORI 1 = 1 TONO:FORI2=0TO4: INPUT#!.G 
(11,12>:NEXT:NEXT:CLOSE1 
10590 RETURN 

10900 F'R I NT " □» : FORI = 1T037 : FOR JK=0TO 1 : P 
0KE32728+1 +JK*920+TP < JK > *40 .. 192 : NEXT : NE 
XT 

10920 POKE327S8,24O:P0KE32806,£38sPOKE 
33608,237:P0KE33646,253:FORI=1TO20 
10930 PRINTWS< 1 + 1 > "fl|S"TAB<38> ".a IH" :NE 
XT : FORX1 = 1T037:FORV1 = 1TO20 
10940 POKE<32768+V1+40+X1>,C <V1,X1,1> : 
NEXT:NEXT: RETURN 
11000 REM SALVATAGGIO SU NASTRO 
11010 MCS=CS;PRI NT"3"WS<4 >"NOME 01STIN 
TIVO DEL FILE":INPUTNS 
11020 PR INTWS<7> " PROCURRTEVI UNA CASSE 
TTR E RIAVVOLGETELA" 

11030 FRI NT"PRONTI"; :INPUTZS:IFLEFTS<Z 
S, 1 >0"S“THEN11020 

11040 OPEN1,1,2,NFS:PRI NT#1,CR:PRI NT#1 
,CO :PRI NT#1,PG:PRI NT#1,PR 
11050 PR I NT# 1 , MCS : PR I NT# 1 , JKS : PR I NT# 1 , 
•JGS:FOR11=1TO20:FORI2=1T037:FORI3=1T02 
11060 PR I NT# 1 , C < 11, 12,13 > : NEXT : NEXT : HE 
XT 

11065 PRINT#1,R6:PRINT#1,G6 
11070 FORI1=1TQNR:FOR12=0TO4:PRI NT#1 ,R 
<11,12):NEXT:NEXT 

11080 FOR 11 = 1 TONO :: FOR 12=0TO4 ; PR I NT# 1 , G 
< 11,12):NEXT:NEXT:CLOSE1 
1 1090 PR I NT WS < 15 > " VI.JO I CO NT I NUORE " : IN 
F'UTZS : ZS=LEFTS < ZS , 1 > 

111 @0 IFZSO " S " ANDZSO " N " THEN11098 
11110 IFZS="S"THENCD=1 :G0T047 
11999 END 

12008 C <V,X,2 >=8 :NC=RC:RC=214 :P0KE3276 
8+V0+40+X8,C<V0,X0,1>:GOSUB50O0 
12005 C<V,X,1>=214 

12010 PRINTWS<24 >"IL GHIOCC10 SI SPEZZ 
A ! " :GOSUE: 13000 :GOSUB9000 :FG=1 
12020 Q=-4:GOSUB16000 :FL=1 :RETURN 
13000 F0RV9=0T01000s NEXT:RETURN 
14000 C < V , X , 1 >=NC : P0KE32768+V0+40+X0 , C 
<V0,X0,1>:TC=NC:NC=RC:RC=TC:GOSUB5000 
14010 PRI NTWS< 24>"PALUDE !";GOSUB13000 : 
GOSUB9000 :FG=1 

14020 Q=-3:GOSUB16000 :RETURN 
15000 P0KE32768+V0*40+X0, C < V0 , X0 .. 1 > : RE 
TURNI 

16000 I FCS= " R " THENR < CR, 0 > =C! : PR=PR-1 : R6 
=R6-1 :RETURN 

16010 IFCS="G"THENG<CG,0> =Q:PG=PG-1 :06 
=06-1 :RETURN 

16999 RETURN 

17000 I FX< 1 ORX>37ORVC1 ORV>20TI4ENGOSUB 1 
8000 

17005 PK=PEEK <32768+V*40+X > : IFPI<=81ORP 
K=870RPK=215ORPK=209THENX=X0:V=V0 
17010 RETURN 

18000 P0KE32768+V0+40+X0,C <V0,XO,1> 
18010 PRINTWS<24>"L'UNITA ' E' FUGGITA" 
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: GOSUB13000:GOSUB9800;FG=1 
18020 Q=—5 :GOSUB16000 :RETURN 
19080 IFNA=81 ORINA=215THENNN=87 : R9=209 
19010 IFNA=S7ORNA=209THENNN=31 ;R9=215 
19020 RETURN 

20000 W=1 :1FDS="G"THEN2050O 
20020 IF W ;> N R T H E N R E TU RN 

20030 IF <R< W,1>=V+DV>AND<R < W,2 >=X+DX>A 
ND< R< W,0 >>0>THENH=R<W,3 > : K=R< W , 0>: RETUR 
N 

20040 W=W+1:GOTO20820 
20500 IF W > N13 T H E N RETURN 

20530 IF <G<W,1>=V+DV >AND <G <W,2 > =X+DX>A 
ND < G< W,0 >>0)THENH=G< W,3 >:K=G < W,0 >:RETUR 

N 

20540 W=W+1 :GOTO20500 
21000 IFCS="R"THENNS="G" 

21010 IFCS="G"THENNS="R" 

21020 RETURN 

22000 REM MORTE AMICI 

22010 FORZ= 1TCJAM : GOSUB28000 : NEXT : RETUR 
N 

23000 REM FERIMENTO 0 DISARCIOHAMENTO 
AMICI 

23010 I FCS="R"THEH23500 

23020 FORZ=1T0AM: IN=AM< Z,0>: IFG<IN,3 > = 
3THENGOSUB33500 : GOTO23040 
23025 GOSUB26000:RC=PEEK< 32768+AM< Z,1> 
*40+AM< Z,2>>:NC=C<AM< Z,1>,AM <Z,2 >,1> 
23827 G <IH,0>=G<IN,0>-12:XX=AM<Z,2 >:VV 
=AM< Z,1>;GOSUB27000 :G<IN,4 > = 1 
23030 FORTV= 1T 02 : PR I. NT WS < 24 > TVS < TV > :G0 
SUB13000 :GOSUB9000:NEXT 
23040 NEXT:RETURN 

23500 FORZ=1TOAM: IN=AM< Z,0>: IFR<IN,0 > = 
1.5THENGOSUB28000:GOTO23540 
23510 R < IN , 0 >=R < IN , 0 >-1.5: RC=PEEI< < .3276 
S+AM<Z,1>*40+AM<Z,2>>:R <IN,4>=2 
23520 NC--C < AM < Z, 1 > , AM < Z , 2 > , 1 > 

23530 XX=AM< Z,2 >:VV=AM<Z,1>:GOSUB27000 
23535 F'R I NT WS < 24 > ; FORTV= 1T02 : PR INTVTS 
<TV>" "; :NEXT:GOSUB13000 :PRI NT :GOSUB900 
0 

23540 NEXT:RETURN 

24000 REM RITIRATA 0 DISARCIONAMENTO N 
EMICI 

24010 IFNS="R"THEN24500 

24020 FORZ»1TOME ; IN=NE<Z,8>:IFG < I N , 3 > = 
3THENGOSUB34500 :GOTQ24040 
24025 GOSUB26000 sRC--PEEK<32768+NE < Z, 1 > 
+40+NE< Z,2 >>s NC=C<HE< Z,1>,HE< Z , 2 > , 1 > 
24027 G<IN,0>=G<IN,0 >-12 :XX=HE <2, 2 >:VV 
=NE< Z, 1 > GOSUB27000 sG < IN , 4 > = 1 
24030 FORTV=1T02:PRINTWS<24>TVS < TV> :00 
SUB 13800 :GOSUB9000:NEXT 
24040 NEXT;RETURN 

24500 F0RZ=1TONE:IN=NE<Z,0>:IFR<I N. 0>= 
1.5THENGOSUB29000:GOTO24540 
24518 R<IN,0>=R<IN, 0> -1.5: RC=PEEK<3276 
8+NE<Z,1>+40+NE<Z,2>>:R<IN,4 > =2 
24520 NC=C<NE < 2,1>,HE<Z,2>,1> 

24530 XX=NE < Z , 2 > : VV=NE < 2,0: GOSUB27000 
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24535 PRINTW*<24 >; :FORTV=1T02:PRINTVT* 
<TV> " " : hi EXT :GOSUB13000 :PRINTsGOSUB900 

0 

24540 NEXT:RETURN 

25000 I FO£= " R "THEHR < 1N.. 0 ? =W :PR=PR-1 : R6 
=RS-1:RETURN 

25035 IFD*="G"THENG<IH,0>=W:PG=PG~1 :G6 
=G6—1 :RETURN 

25010 FORZ=1TOHE:GO3UB29080 : NEXT: RETUR 
N 

26000 G<IN,3 >=3 :RETURN 

27000 FORQB=1TO30:POKE32768+VY*40+XX,N 
C :POKE32768+VV*40+XX,RC:NEXT:RETURN 

23000 NC=PEEK<32768+AM<Z,l>#40+AN<Z,2> 
>:RC=C<RM<Z,1>,RM <Z,2 >,1> 

23010 VV=RM<2,1>:XX=RM<Z,2>:GOSUB27G00 

23020 Df-=CT : IN=RM<2,0 > : W=-5 : GOSUB25000 
: RETURN 

29000 NC=PEEK<32768+NE<2,1>+40+NE<2,2 > 
>:RC=C< NE <Z,1>,HE <2,2 >,1> 

29010 VV--NE < Z , 1 > : XX=HE < Z , 2 > : GOSUB27000 

29020 D$=N$:IH=NE<2,0>:N=-5:GOSUB25000 
: RETURN 


LEGGETE 


LA 
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DI PERSONAL COMPUTER. 
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30300 ONDRGOTO30010,30020,30030,30040, 
30050 , 30060,30070,30080,30090 
30010 V=V+1 :X=X-1 :RETURN 
30020 V=V+1:RETURN 
30030 V=V+1:X=X+1:RETURN 
30040 X=X-1:RETURN 
30050 RETURN 
30060 X=X+1:RETURN 
30070 V=V-1:X— X- 1 :RETURN 
30030 V=V—1 :RETURN 
30090 V=Y—1:X=X+1:RETURN 
31000 G0SUB21000 

31010 8M=0:NE=0:NR=NC:RR=RC:GOSUB1 9000 
:FORDY=-1T01: IFY+DY<1ORV+DV>20THEN31 100 
31015 FORDXss— 1TO1 :1FX+DXC1 0RX+DX>37THE 
N31090 

31020 .JK=PEEK < 32768+<V+DV> *40+ < X+DX > > : 
I FJK=HAORJK=RRTHENflM=RM+1 : GOSUB8500 
31030 IFJK=NN0RTK=R9THENNE=HE+1 : G0SUB8 
600 

31040 T.FJK'.=45THENPP=PP+100 
31090 HEXTDX 
31100 NEXTDV 
31110 RETURN 

32000 P1=0 :P2=0:1FfiM=0THEN 3 2 0 15 

32010 FORTV=1TOfiM:P1=P1+flM < TV,4>: NEXT 

32015 IFNE=0THEN32999 

32020 FORTY=1TOHE:P2=P2+NE< TV,4 >:NEXT 
32999 RETURN 

33500 IFG<IH,0> = 1.50RG< XN,0> = 13. 5THENG 
OSUB23000:GOTG33540 

33510 G< IN,0 :■ =G< IN , 0>-1.5: RC=PEEK< 3276 
3+fiM< Z , 1>*40+RM <2,2 > ) :G < IN,4 >=2 
33520 HC=C<RM < Z,1>,flM < Z,2 >,1 > 

33530 XX=RM< 2,2 >:VY=RM< 2 ,1>: GO8UB27000 
33535 PRIHTU^ < 24 >TVf<1>:GOSUB 13000 : GOS 
IJB9000 : PR I NT NT < 24 > YT* < 2 > 

33537 GOSUB13000 :GOSUB9000 
33540 RETURN 

34500 IFG<IN , 0> = 1.50RG<IN,0 > = 13. 5THENG 
OSUB23000:GOTO34540 

34510 G<IN,0 >=G<IN,0>-1.5: RC-PEEK < 3276 
8+HE<2,1> +40+NE<2,2> > :G<IN.4> =2 
34520 HC=C< HE < 2 ,1 >, HE < 2, 2 > , 1> 

34530 XX=NE < 2,2 >:VV=NE< 2 . 1>: GOSUB27000 
34535 PRINTW*< 24 >TYÌ<1 > :GOSUB1 3000 : GOS 
UB9000:PRINTNT< 24 > YT* < 2 > 

34537 GOSUB13000 :GOSUB9000 
34540 RETURN 

35000 RP=8:FORI = 1TOUR :RX=R<X,0>:IFRX !0 
THENRX--0 

35010 RP=RP+RX :NEXT:GP=0:FORI = lTONG:GX 
=G<I,0 >: IFGX<0THENGX=0 
35020 GP=GP+GX:NEXT:GP=GP+PG:RP=RP+PR : 
R7=MG-GP:G7=MR-RP:RETURN 
36000 PR I NTW$ < 24 >" VITTORI fi DELLfi CRVfl 
LLERIfi TEUTOHICfiB":GOSUB13000 : GOSUB9000 
36010 PRINTW*<24>"*EL ■”G* 

36999 FORHJ=1TO50000:NEXT:END 

37000 PRINTW$<24>”VITTORIfi OELLR FONTE 
Rifi RUSSA" : GOSUB13000:GOSUB9000 

37010 PRINTWÌ < 24 >"DEL "ROf 
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37939 

F 0 R H J =1TO50000 :NEXT:EHD 

38000 

IFR 6 

-0THEHGOSUB36000 

33010 

IF 86 

-0THENGOSUB37000 

38020 

00SUB41000 :: RETURN 

38000 

REM 

FERIMENTO FIMI CI 

38010 

IFC* 

= "R"THENGOSUB23580: RETURN 

38020 

FORZ 

=1T0RM: IH=RM<2,8>:GOSUB33500 

:NEXT:RETURN 

40000 

REM 

FERIMENTO NEMICI 

400 1 0 

IFN$ 

="R"THENGGSUB24500:RETURN 

40020 

FORZ 

== 1TONE : IN=NE< Z , 0 > : GOSUB34500 

:NEXT:RETURN 

4 1 000 

IFCT 

="R"THEN41500 

41010 

IFG < CO, 3 > >3THENRETURN 

41020 

IF G 

CG, 0 >> 1.5THENG < CG4 > = 1 : RETUR 

H 



41030 

G < CG 

,4>=2sRETURN 

41500 

IFR< 

CR,0>>1.5THENRETURN 

41510 

RCCR 

.4 ;'--2 : RETURN 

5800® 

REM 

DR ELIMINARE IN RIGA 6050 

59005 

DD= I NT < DD OR ;■ * 1000 > /1000 

59006 

K9= I NT C K 8 # 1000 ;■ /1000 

58010 

PRINTUT< 24 >DRTfiB<3>DDTfiBC10>flMTfl 

B< 15>NETRBX 

20 :> PÌTRE: < 25 > P2TRE: < 30 > K 8 

58020 

GETTUf;IFTU#=""THEH58020 

53399 

GOSUB8000:P1=0:P2=0:RETURN 

Lis-t®. s 

i mbo 1 i yra.f i c i 

0 

: 1 

HOME --CHRT t 18> 


24 

CRSRT =CHR:f C 1?:> 

50 

: 1 

RE VERSE =CHR* •: 18 > 


1 

SHIFT REVERSE =CHR#U46> 


1 

REVERSE =CHRT C 18 > 


1 

SHIFT REVERSE =CHR*<146> 


1 

REVERSE =CHRfC18> 


1 

SHIFT REVERSE =CHR*<146> 


1 

REVERSE =CHR*<1S> 


1 

SHIFT REVERSE =CHR$<146> 

53 

: 1 

REVERSE =CHRT <18 > 


1 

SHIFT REVERSE =CHR$<146> 


1 

REVERSE =CHR*C18> 


1 

SHIFT REVERSE =CHR*<146> 


1 

REVERSE =CHR:Fa 8 > 


1 

SHIFT REVERSE =CHRF•' 146> 


1 

RE VERSE --CHRF’:. 13 > 


1 

SHIFT REVERSE =CHR*<146> 

55 

! 1 

REVERSE =CHRFC18> 


1 

SHIFT REVERSE =CHR$<146> 


1 

REVERSE =CHR$(1S> 


1 

SHIFT REVERSE *CHR*C146> 


1 

REVERSE =CHR*C1S> 


1 

SHIFT REVERSE --CHEF<146 ') 


1 

REVERSE =CHRF <18 > 


1 

SHIFT REVERSE =CHRFC146> 

57 

: 1 

RE VERSE =CHRFU3:> 


1 

SHIFT REVERSE =CHR*<146> 


1 

REVERSE =CHRf(18> 


1 

SHIFT REVERSE =CHRF<146> 


Seguito ‘ 
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60 

■ 

1 

RE VERSE =CHR*C 18> 



1 

SHIFT RE VERSE =CHRF (. 146 > 



1 

RE VERSE =CHRF ■: 18> 



1 

SHIFT REVERSE =CHRF (. 146> 

63 

. 

1 

RE VERSE =CHR:fC18) 



1 

SHIFT REVERSE =CHR*<146> 



1 

REVERSE =CHRF < 18 "> 



1 

SHIFT REVERSE =CHRF<146> 



1 

REVERSE =CHRF<1S> 



1 

SHIFT RE VERSE =CHRFU46> 

65 

. 

1 

REVERSE =CHR$<18> 



1 

SHIFT REVERSE =CHRFC146) 



1 

REVERSE =CHR$<18> 



1 

SHIFT RE VERSE =CHRF046> 



1 

RE VERSE =CHR:FC13> 



1 

SHIFT REVERSE *CHR*<146> 



1 

REVERSE =CHRFC18> 



1 

SHIFT REVERSE =CHRF<146> 

1 00 

! 

1 

SHIFT HOME =CHR*<147> 

130 

. 

1 

REVERSE =CHR$C18> 



1 

SHIFT REVERSE =CHRF0 46> 



1 

REVERSE =CHRFC13> 



1 

SHIFT REVERSE =CHR*<146> 

3005 

; 

1 

REVERSE =GHRF<18> 



1 

SHIFT REVERSE =CHEF<146 > 



1 

REVERSE =CHRf(18> 



1 

SHIFT REVERSE =CHR*0 4S> 

30 1 0 

: 

1 

SHIFT HOME =CHRFv147> 

3110 

M 

1 

REVERSE «CHR*<18> 



1 

SHIFT REVERSE =CHRF•' 146> 



1 

REVERSE =CHRF<13> 



1 

SHIFT REVERSE =CHR$<146> 

4010 


1 

REVERSE =CHRFC18> 



1 

SHIFT RE VERSE =CHRF (. 146 ? 

4020 

« 

1 

REVERSE =CHRF <18 > 



1 

SHIFT REVERSE =CHR$C146> 

10510 

5 

1 

SHIFT HOME =CHRFC147> 

1 0800 

! 

1 

SHIFT HOME -CHRFt147) 

10830 

: 

1 

RE VERSE =CHR:f C 18 > 

SHIFT REVERSE =CHRF<146> 




REVERSE =CHRF<18> 




SHIFT REVERSE =CHRt<146> 

1101 0 

! 

1 

SHIFT HOME =CHR*C147> 

36000 

; 

1 

REVERSE =CHR*<18> 



1 

SHIFT REVERSE =CHR*< 146> 

36010 

- 

1 

REVERSE =CHRTv18 > 



1 

SHIFT REVERSE =CHR*<146> 
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EN PLEIN (= Pieno) 

Pieno su un numero, cioè puntata su di un solo numero. 

35 volte la posta 

CHEVAL (= Cavallo) 

2 numeri collegati (Es. 1 e 2) 

TRASVERSALE PLEINE (= Piena trasversale o Terzi- 

17 volte la posta 

na) 

11 volte la posta 

Fila orizzontale di 3 numeri (Es. 1 - 2 - 3 o 19 - 20 - 21 - 
ecc.). 

CARRÉ (= Quadrato) 

Blocco di 4 numeri in quadrato (Es. l-2-4-5o2-3-5- 
6 - ecc.). 

TRASVERSALE SIMPLE (= Trasversale semplice o 

8 volte la posta 

testina) 

2 file orizzontali di 3 numeri, una sotto l’altra (Es. 1 - 2- 

5 volte la posta 

3 - 4 - 5 - 6). 

DOUZAINE (= Dozzina) 

12P = Numeri 1/12 (prima dozzina) 

12M = Numeri 13/24 (seconda dozzina) 

12D = Numeri 25/36 (terza dozzina). 

2 volte la posta 

COLONNE 

2 volte la posta 

12 numeri in verticale: 

Prima colonna : 34 

Seconda colonna : 35 

Terza colonna : 36. 


Combinazioni semplici 

(vengono tutte pagate 1 volta la posta) 


PAIR = Numeri pari 

IMPAIR = Numeri dispari 


MANQUE = Numeri dall’ 1 al 18 (metà superiore del banco) 

PASSE = Numeri dal 19 al 36 (metà inferiore del banco) 

ROUGE = Rosso 

NOIR = Nero 


Se esce lo 0, le puntate relative alle combinazioni semplici rimangono sul tavolo 
e poi, se col gioco successivo escono quelle combinazioni, esse vengono pagate al 

giocatore, altrimenti vanno al banco. 


Per le puntate 2, 3, 4, 5, il numero giocato indica l’angolo basso a sinistra della 
figura giocata (per il quadrato 1 - 2 - 4 - 5 occorre giocare il numero 1). 


Figura 1. Istruzioni di gioco. 


Giocate alla roulette 
con il vostro personal 
Sinclair 


di Angelo Motta 

P er giocare d’azzardo senza 
correre il rischio di essere 
imbrogliati si può chiedere 
allo ZX81 di tenere banco per una 
serata. E sufficiente introdurre il 
programma presentato, che ripro¬ 
pone fedelmente il gioco della rou¬ 
lette con tutti i possibili tipi di scom¬ 
messe, tenendo conto anche, in caso 
esca il numero zero, delle combina¬ 
zioni semplici che rimangono sul 
tappeto per il gioco successivo. Le 
regole sono talmente semplici ed il 
gioco talmente noto che è inutile di¬ 
lungarsi ora in spiegazioni comun¬ 
que contenute nel programma. La 
figura 1 illustra i tipi di scommesse 
possibili con le relative vincite. 

Alla roulette possono partecipare 
fino a 10 giocatori che possono ef¬ 
fettuare una sola scommessa per 
turno. È possibile aumentare il nu¬ 
mero dei partecipanti variando i di¬ 
mensionamenti delle matrici effet¬ 
tuati dalla linea 700 in poi. 

Oltre al gioco in se stesso, il pro¬ 
gramma presenta due routine in lin¬ 
guaggio macchina, contenute nella 
REM iniziale, che consentono una 
gestione del video più veloce e inol¬ 
tre possono essere utilizzate anche 
in altri programmi. 

La prima salva il contenuto del Di¬ 
splay File (o di parte di esso) nella 
parte alta della RAM e lo richiama 
al bisogno, aumentando la velocità 
con cui si può cambiare immagine; 
la seconda consente il lampeggio del 
video mediante inversione. 


Analizziamo la prima routine illu¬ 
strata nella figura 2. 

Si basa su una delle più potenti 
istruzioni presenti sullo Z80 per il 
trasferimento di dati e, precisamen¬ 
te, l’istruzione LDIR. Ecco qualche 
spiegazione per i neofiti del linguag¬ 
gio macchina. 


Questa istruzione consente il trasfe¬ 
rimento rapido di un blocco di dati 
da una zona di memoria ad un’altra. 
Per la sua esecuzione vengono utiliz¬ 
zati i tre registri doppi BC, DE e HL. 
Il registro HL punta alla prima loca¬ 
zione di memoria contenente il bloc¬ 
co dati da trasferire; il registro DE 
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alla prima locazione di memoria do¬ 
ve saranno trasferiti quei dati; il re¬ 
gistro BC il numero di byte da tra¬ 
sferire. Dopo ogni trasferimento, i 
registri DE e HL sono incrementati 
di “1” ed il registro BC decrementa- 
to fino a quando BC non contiene 0. 

Se analizziamo la nostra routine 
vediamo che essa si compone di due 
parti. La prima trasferisce il Dispaly 
File in altra zona di memoria e per¬ 
tanto il registro HL deve puntare 
all’inizio del Display File ed il regi¬ 
stro DE alla zona di RAM designa¬ 
ta. La seconda parte della routine 
riporta i dati trasferiti in RAM nel 
Display File, e deve quindi avere i 
valori dei registri DE & HL invertiti. 
In entrambi i casi il registro BC 
(contatore) conterrà la lunghezza 
del Display File. 

La routine è stata inserita nel pro¬ 
gramma nella REM iniziale fra le 
locazioni da 16550 a 16570, ma può 
essere inserita in un qualsiasi punto 
di una REM o, addirittura in una 
stringa, basta saperla chiamare nel 
modo giusto. 

Le locazioni n. 8 e n. 9 della routi¬ 
ne contengono il valore del registro 
BC, cioè il numero dei byte da tra¬ 
sferire. 

Se eseguiamo: 

PRINT PEEK 16557 + 256 ir PEEK 
16558 (NEW LINE) 
otterremo il valore 594. Siccome 
ogni linea del Display File è compo¬ 
sta da 33 caratteri (32 + New Line), 
dividendo il valore ottenuto per 33 
(593/33) si ottiene il numero delle 
linee che nel programma Roulette 
viene salvato in RAM, cioè 18. 

Variando il valore dei registri BC 
si può utilizzare la routine per salva¬ 
re un numero a piacere di linee del 
Display File. 

Facciamo un esempio: se volessi¬ 
mo trasferire tutte le 24 linee dello 
schermo, dovremmo ragionare così: 



Routine di trasferimento del Display File nella RAM alta. 


16550 

42 

12 

64 

2A 

OC 

40 

LD HL, (16396) 

16553 

17 

0 

122 

11 

00 

7A 

LD DE, 31232 

16556 

1 

82 

2 

01 

52 

02 

LD BC, 594 

16559 

237 

176 


ED 

B0 


LDIR 

16561 

201 



C9 



RET 


Routine di trasferimento dalla RAM alta al Display File. 


16562 

237 

91 

12 

42/ED 

5B 

OC 

40 LD DE, (16396) 

16566 

33 

0 

122 

21 

00 

7A 

LD HL, 31232 

16569 

24 

241 


18 

FI 


JR - 15 


Per aumentare o diminuire le linee del Display File da trasferire variare il dato 
dei registri BC (contatore). Se per esempio volessimo trasferire tutte e 22 le linee 
dovremo inserire nella locazione 16557 il valore 214 decimale e nella locazione 
16557 il valore 2 decimale. 214 + 2 ★ 256 = 726 = il numero dei caratteri 
contenuti nelle prime 22 righe del Display File. 


Figura 2. Routine in linguaggio macchina per il trasferimento del Display File 
in RAM e viceversa. 


16571 

42 

12 

64 2A 

OC 

40 LD HL, (16396) 

16574 

6 

18 

06 

12 

LD B, 18 

16576 

197 


C5 


PUSH BC 

16577 

6 

32 

06 

20 

LD B, 32 

16579 

35 


23 


INC HL 

16580 

126 


7E 


LD A, (HL) 

16581 

254 

127 

FE 

7F 

CP 127 

16583 

56 

4 

38 

04 

JR C + 4 

16585 

222 

128 

DE 

80 

SBC A, 128 

16587 

24 

2 

18 

02 

JR + 2 

16589 

198 

128 

C6 

80 

ADD A, 128 

16591 

119 


77 


LD (HL), A 

16592 

16 

241 

10 

FI 

DJNZ - 15 

16594 

35 


23 


INC HL 

16595 

193 


CI 


POP BC 

16596 

16 

234 

10 

EA 

DJNZ - 22 

16598 

201 


C9 


RET 


Nella locazione 16575 è contenuto il numero delle linee del video che si vogliono 
invertire (nel nostro caso 18). 

Per aumentare o diminuire le linee da invertire, variare tale valore con l’istruzio¬ 
ne: 

POKE 16575, 24 (tutte le 24 linee per esempio). 

Inserendo la routine in un ciclo FOR... NEXT (il ciclo dovrà sempre essere pari) 
si otterrà il lampeggio del video. 


Figura 3. Routine per l’inversione del video. 


24 x 33 = 792 (= numero dei byte 
che compongono lo schermo) 

INT (792/256) = 3 (MSB o numero 
da inserire nel registro B) 

792 — 256 ★ 3 = 24 (LSB o numero 


da inserire nel registro C) 

I valori ottenuti devono essere inse¬ 
riti con l’istruzione POKE nelle lo¬ 
cazioni n. 8 (per il registro C) e 9 (per 
il registro B) della routine, ottenen- 
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Figura 4. 


X REM RNRNRNRNRNNRNRNRNRRNRNR 
NRNRNNRNRNRNREERND! GOSUB SS 
TAN GOSUB ?£RND5 / LET E£RND«*>U 
AL «f47B> *LEN ( LET 7AT i REM T 


*EM 


REM 


RN 7) 

100 R 

101 REM LANCIO DELLA 

102 REM INIZIALE 

103 REM 
110 FAST 

12© LET B* = "2.P:0O4C»11B07A0V5202E 
Da0C9eD5a0C4.iaai007Riari2ft0C4.00Si. 
2CS©620a®7erE7f3804OeB01802C6a07 
7i0ria3cii0ERC9a3ii0B0ao50a020i\?‘ 
101010X01" 

130 LET R=16350 

140 FOR 1=1 TC LEM 6* STEP 2 
150 LET 8 = (CODE Bid! -20) *18fCQ 
DE E*(1 + 1/-22 
16© PDKE A, 8 
17© LET R =fi +1 
1B0 NEXT I 
20© REM 

201 REM yfiRIflBILI INIZIALI 

202 REM 

210 POK.E 16363,119 
220 CLS 


230 DIM 
24® LET 



1©396+256*PEEK 


LANCIO IN RAM TOP DELLO 
SCHERMO PUNTATE 


sé 

16397 

300 REM 

301 REM 

302 REM 

303 REM 
310 DIM C$ 113 ^ 11) 

390 LET 6-Ss»" 1-EM PLEIM 2-CAURL 
LO 3-TERZINO 4-QUADRATO 5-SES7 
INA 6 -DOZZINA 7-COLOMNR 3-PRFi 

I 9-DISPARI 10-HANOUE 11-PR 

5SE 12-ROSSO 13-NERO" 

330 FOR 1=1 TO 13 

340 LET C$ IZ =13* (1+11*1-11 TO i 
3S0 NEXT I 

360 PRINT "PUNTATE E UINCITE(PO 
STA X UOLTE1 ’ .. , 

370 POR 1=1 TO 13 

3©0 PRINT C$CIS;TAB 30; V" "AND 
PEEK (1659Q+1) <10/ ; PEEK (16598-:- 

X' 

390 NEXT I 

400 LET L=USR 16550 

410 CLS 

500 REM 

sei rem lancio in «Am top del 

502 REM TAPPETO DI GIOCO 

PRINT TAB 3;N*;TAB 3;0$;*’ P 
^MANoaestirMP a IR 
; TRE 



. '< INT "t AB^0*1“ " Plfe 
PASSE» PAlfc Si NO IR 


^ ~ .lTAB 


600 PRINT TAB 3,0$;" » $8D»";TAE* 
3; N* 

ei® POKE 16835,119 
820 LET L=USR 16SS0 

700 REM 

701 REM DIMENSIONAMENTO DELLE 

702 REM MATRICI 

703 REM 

710 DIM G $(10,10} 

720 DIM S(10) 


730 DIM Pi10/ 

740 DIM T f10) 

750 DIM Si 10/ 

7S0 FOR 1=1 TO 10 
770 LET Sili=1000 
788 NEXT I 
790 DIM NflO) 

1000 REM 

1001 REM INIZIO GIOCO 

1002 REH 

1010 CLS 

1A9A Si nu 

1030 FOR 1=1 TO 2© 

1040 PRINT RT 10, a;.MI 
-J® PRINT «T 10,8; 


TO 15/ 


1060 NEXT I 

?5 IN I * i ^TAB 2;"VOLETE LE I 
3TRUZIONI? (S/N)" 

1080 GOTO 1080+(10 AND INKEY$*"N 
’ ) + (6920 AND INKEV*="S") 

IO90 CLS 

1100 PRINT "QUANTI GIOCATORI? MA 
X IO) " 

111® INPUT NG 

1120 IF NG <1 OR NG >10 THEN GOTO 
111® 

1130 PRINT .."NOME DEI GIOCATORI 

114®'FOR 1=1 TC NG 

1150 PRINT !” ” AND I<1®/;I;“ - 

Ila® INPUT G$tIZ 
1170 PRINT G$(I) 

1180 NEXT I 
1190 FOR 1=1 TO 30 
120® NEXT I 
1210 POKE 16568,112 
122® LET L=USR 16562 
123© FOR r=l TO 3® 

124® PRINT AT 19 , © ’ M> 

L 1^ " ' 

1260 NtXt 4 

1270 PRINT AT ia ; 0,M$ 

150® REM 

1501 REM INSERIMENTO PUNTATE 

1502 REM 

1510 FOR 1=1 TO NG 

152® IF P(I)<>3 «NO T(I/>7 THEN 
3C/TO 1T50 

1525 IF SCI) =*3 THEN GOTO 1750 
1530 PRINT RT 13,0;M*+N*+M*+M* 
155© PRINT AT 1S,0;G*(1/;" POSSI 
EDI € “; S ( I) 

156® PRINT RT 21,®;"QUANTO PUNTI 
•»*' 

Ì570 INPUT PT 

158® IF PT >S ( X/ THEN GOTO 5880 
1590 LET P(I)=PT 

1695 IF P(I)=0 THEN GOTO 5200 
1600 PRINT AT 19,0;"PUNTI £ " ; PT 
;AT 21,0;"SU QUALE TIPO DI PUNTA 
rfv?" 

16IO POKE 16568,122 
162® LET L=USR 165S2 
163® INPUT TP 

1640 IF TP <1 OR TP>13 THEN GOTO 
ICO® 

165® LET T(I)=TP 

166® PRINT AT 19,13; "SU C*(TP, 
1 TO ) 

167® PRINT AT 21.Q;M* 

£ 66 ® POKE 16666,119 

1600 LET L=USR 16562 

1710 IF T(1/ <8 THEN GOSUB 6000+1 

00*T il) 

172® PRINT ;AT 21,®,"E* ESATTA L 
A PUNTATA?";M*( TO 10/ 

173® INPUT 8 $ 

174® IF CODE B»=Si THEN GOTO 153 
175® NEXT I 

176© PRINT AT 16,0;M$+H$+M$+M* 

3000 REM 

3001 REM USCITA NUMERO 
3010 RAND 

3020 LET NU=INT (RND*37) 

3030 LET DFA =DF +366 + INT (NU/3.0B 
) *2 +2- (99 AND NU-(INT (NU.'3/*3/ = 
2) -(193 AND NU — ( INT (NU/3) i3) =0) 
3040 LET DFB=DFA+33 
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Figura 4. 

3050 PRINT AT 19 , 7; 
- —l";AT 21,5; "IT^ 


HC IA|=E 


3060 INPUT 5* 

3070 PRINT AT 19,0;K*;H$;MS 
3060 POR 1=1 TO 120 
3090 LET LsUSR 16571 
3100 NEXT I 

3110 PRINT RT 19,0;"NUMERO USCIT 

3: " 

3115 IP NU=0 THEN GOTO 5100 
3130 PRINT NU;" "+("ROSSO" RND P 

IEK (10513+NU) =53) trNERO" ANO P 
SEK (16513+NU)=51); 

3130 PRINT (“ PARI 1, AMD NU = INT t 
NUx2)*2;+t" DISPARI” ANO NUoINT 
INU/2)*3); 

314-0 PRINT (" MANQUE" AND NU< = 18 
)+(" PASSE" AND NU >183 
3150 POR 1=1 TO 30 

3160 POKE DPA , PEEK DPR 4- ( 128 ANO 
PEEK DPA<138)-<136 AND PEEK 0FR> 
138) 

£2E E .BE I ?-‘ ,:>EEK M r a*tias and 
DPB<iae>-t128 AND PEEK DPB> 

3 12o 1 

3180 NEXT I 
4-000 REM 

Ioli REM fiGGIORNfiMENTO CAPITALI 
1010 SCROLL 
4-O30 SCROLL 
40 30 PR INT TAB 5, 


_ ?OLL 
4050 POR 1=1 TO NG 
4055 SCROLL 
4Vb0 TTh f ' 

4070 IP Stl)=0 THEN GOTO *190 
4080 IF PII)*0 THEN GOTO 5900 
4090 IP NU=0 RND T(I)>7 THEN GOT 
O 5950 

4100 GOSUEf 54S0+30*T(I) 

411© LET 5tI)«8(I)-[PtII AND U=8 
■ -?■ (P (I) *PEEK 116598-f-T ( I) ) AND U = 
1> 

4120 LET T(I)=0 
J 130 . LET -P. f.Ui 
-LI 4 0-SCROLL 

416© PRINT B*(I);(" UINCI" AND U 
=!)+(" PERDI" AND Us©) 

4160 SCROLL 

4170 PRINT TAB 11;"ORA POSSIEDI 
JT. ” : 6 < T t 
419è NEXT I 
4200 SCROLL 
4310 SCROLL 
4220 PRO 

INPUT 
4240 CLS 
4250 GOTO 1210 

3000 REM 

3001 REM RIFIUTO PUNTATA 

3002 REM 

5010 POKE 1S41S,0 

302© PRINT AT 21,0;"PUNTATA OLTR 
3 IL TUO CAPITALE RIPETILA - N 
OM SI FA CREDITO” 

3030 POR K=1 TO 50 
3840 NEXT K 

3050 PRINT AT 21,0;MS;M$ 

5060 POKE 16416,2 
507© GOTO 1560 

5,* Pi(7l DSM 

3101 REM USCITA ZERO 
3103 REM 

311© LET OFRsDP+266 
3120 LET DFB=DFA+33 
3130 PRINT "0 (ZERO)“ 

3140 GOTO 3150 
3200 REM 

j201 REM PASSAGGIO DEL TURNO 
5202 REM 

5210 PRINT AT 21.0;"UUOI SALTARE 
IL TURNO?" 

322© INPUT BS 

3230 GOTO 1528 + <£30 AND CODE B$ = 
36 > 

5500 REM 


416513+NU) 
' U = 1 


.PEEK i 16 


NON HAI GIOCA 


CON £ 


3501 REM CONTROLLO UINCITA 
3582 REM 

5510 IF N(I)=NU THEN LET U=1 
5520 RETURN 

5540 IF N(I)=NU OR N(I)+1=NU THE 
A LET U = 1 
3550 RETURN 

3S70 IF N(X) < =NU AND N(I) +2)=NU 
THEN LET V=1 
3588 RETURN 

3600 IF NtI)=NU OR N(I)+1=NU OR 
N(I)+3=NU OR N (I) +4-=NU THEN LET 

Usi 

3610 RETURN 

5630 IF N CI) < =NU RND N(I)+5>=NU 
THEN LET U=1 

t 640 RETURN 

660 IF NU >34 AND N(I)=41 OR NU< 
25 AND NU>12 AND N(I)=50 OR NU<I 
3 RND N(I)=53 AND NU<0 THEN LET 
U = 1 

5670 RETURN 

S690 IF N <I) -INT <N(I) X3) *3*NU-X 
NT (NUx3)*3 THEN LET U=1 
3700 RETURN 

5750 IF NU - INT (NU/2) t2=T(I) -INT 
CT(I)/2)*2 THEN LET U = 1 
5760 RETURN 

S7BO IF NU <19 AND T(I)=10 TMEN L 
ET U = 1 
5790 RETURN 

5310 IF NU> 18 AND Tl'I) =11 THEN L 
ET U = 1 
5320 RETURN 
.3870 IF PEEK 
513 f-T ( I ) ) THEN LET 
3830 RETURN 
5900 SCROLL 
3910 PRINT St(I) 

TO" 

5920 SCROLL 

3930 PRINT TAB 11;"RIMANI 
•; S ( I) 

5940 GOTO 4190 
5950 SCROLL 

5950 PRINT G9 < X) ; " E* USCITO 
0, LA" 

S970 SCROLL 

5960 PRINT "TUA PUNTATA RIMANE I 
NURRIATA" 

3990 GOTO 4190 
5000 REM 

SO01 REM INSERIMENTO TIPO 
6002 REM PUNTRTA 
6003 REM 

5100 PRINT AT 21,0;"SU QUALE NUM 
ERO?" 

5110 INPUT N(I) 

5120 IF Ntl»<0 OR N(I)>36 THEN G 
OTO 6110 

5130 PRINT AT 19,35;"SU ”;N(I) 
5140 RETURN 

5200 PRINT AT 21,0;"PRIMO NUMERO 
DEL C-AU ALLO : " 

5210 INPUT N(I) 

6220 IF N(I) <1 OR N(I)>35 THEN G 
OTO 6270 

3230 IF N 11) -INT (N(I) /3)t3=0 TH 
3N GOTO 6270 

5250 PRINT AT 19,24;N(D," - ,N 

(I) +1 

5260 RETURN 

5270 PRINT AT 21,0;"CAUALLO NON 
POSSIBILE - RIPETI" 

52S0 GOTO 6210 ^ 

3300 PRINT AT 21,0,"QUALE TERZIN 

97 (PRIMO NUMERO)" 

5310 INPUT Ntl) _ „„ „ 

3320 IF Ntl) <1 OR Ntl) >34 THEN G 

ITO 6370 , _ 

3330 Ir Ntl)-INT (NIX)/3)»3<>1 T 
4EN GOTO 6370 

3350 PRINT AT 20,13; DI ";NCI); 

- " ; n (I) +i; " - ";N(i)+2 

5370 PRINT N RT 21,0;"TERZINA NON 
POSSIBILE - RIPETI" 

5380 GOTO 6310 

5400 PRINT AT 21,0;"QUALE QUADRA 
TO?. ■ < PRIMO-- NUMERO) ” 

5410 INPUT N(I) 

5420 IF Ntl) <1 OR N(I) >32 THEN G 


LO 
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(N (XI /3) *3=0 TH 


OTO 64-70 

54.30 IF NIU-INT 
GOTO 64-70 

6450 PRINT AT 20,13; "DI '*(1), 

“ ; N ( I) +1; " " ; N ( I) +3; “ ";N(I)+4 
5460 RETURN 

5470 PAINT RT 21,0;"QUADRRTO NON 
POSSIBILE - RIPETI" 

54 60 - GOTO -6410 

5500 PRINT RT 21,0; "QUALE SESTIN 
RT (PRIMO NUMERO)" 

5510 INPUT Nili 

5520 IF N(I) <1 OR NU) >31 THEN G 
3TO 6570 

5530 IF N <I) -INT (N(I) /3) *3<>1 T 
HEN GOTO 6570 

5550 PRINT RT 20,13;"DR ";N(I);” 

R ", N (I) +5 
5560 RETURN 

5570 PRINT RT 31,0;"SESTINA NON 
POSSIBILE - RIPETI" 

5580 GOTO 6510 

5600 PRINT RT 21,0;"QUALE OOZZIN 
A? (P/M/D) " 

6610 INPUT B$ 

5520 IF B*<>“P" RND B*<>' 

3*<>"D" THEN GOTO 6610 
5530 PRINT RT 19,25;BC 
5640 LET N(I)=CQDE B* 

6650 RETURN 

6700 PRINT RT 21,0;"QURLE 
A7 (34/35/36)" 

5710 INPUT N(I) 

IF Ntl)<34 OR Ntl)>36 THEN 
6710 

PRINT RT 19,25; "DEL “.(Nili 
RETURN 
REM 

REM ISTRUZIONI 
REM 


'M" RND 


COLONN 


5720 

DOTO 

5730 

5740 

3000 

3-001 

5002 


S020 PRINT TAB 9; 

5030 PRINT ,,TAB 5;"ISTRUZIONI P 
5R IL GIOCO" 

6040 PRINT ,,,,"POSSONO PRRTECXP 
ARE 10 GXOCRTÓRIRL MASSIMO" 

3045 PRINT ,,”fi CIASCUNO UIENE fi 
^SEGNATO INI- ZIRLMENTE UN CfiPIT 
ALE DI £ 1806" 

3050 PRINT ,,"fiL TURNO INSERIRE 
-«IMPORTO C-EL-Lfl PUNTATA, IL TIP 
3 ED I RELATI-UI NUMERI SCELTI" 
3060 PRINT ,,"NON UI E" ALCUN LI 
'i ITE ALL 4 Ih- PORTO DELLA PUNTflT 
A SRLUO IL CR-PITRLE MASSIMO R D 
ISPOSIZIONE* 

V7S 

SS0 INPUT B$ 

3WW ULto 

3100 LET L=U5R 16562 
3110 PRINT RT 16,0;"SE ESCE LO 0 
, -LE - PUNTATE - PAGATE-ALLA ARRI-RE 
STANO SUL TRUOLE E SE COL GIOCO 
SUCCESSIUO ESCONO UENGONO PAGA 
TE" 

_ Pf 

rxuw 

3140 CLS 

3150 PAINT ; "RICORDAASI CHE LO Z 
X NON FA ORE-DITO E QUANDO AURET 
■: PERSO TUTTOSARETE ELIMINATI" 
3169 - P-RIMT.. -, BUON DJUI 



50-1 & CLS 


' XMPUr toc 
3200 GOTO 1090 
5>O0O SAUE "ROULETTB" 
3010 RUN 


Figura 4. Listato BASIC del programma Roulette. Per l’inserimento della REM alla linea I procedere come segue: 
copiare da questo listato iprimi 36 caratteri “R” e "N” esattamente nell’ordine in cui sono e quindi completare la linea 
con 56 caratteri qualsiasi. Le scritte in campo inverso sono: linea 520 “Rouge”; linea 1050 "Roulette”; linea 1250 
"Signori fate il vostro gioco”; linea 3050 "I giochi son fatti” e “NEW LINE per lanciare”; linea 4030 “Aggiornamento 
capitali”; linea 4220 “Premere NEW LINE per altra manche”; linea 8020 "Roulette”; linea 8070 "NEW LINE per 
continuare”; linea 8170 “NEW LINE per iniziare”. 


do così, alla chiamata della routine, 
il trasferimento globale del video. 

Analizziamo ora la seconda routi¬ 
ne in linguaggio macchina che con¬ 
sente l’inversione del video, ed è illu¬ 
strata nella figura 3. 

Con questa routine lo Z80 passa in 
rassegna ogni singola locazione del 
Display File e vi aggiunge o sottrae 
128 a seconda che il codice del carat¬ 
tere contenutovi sia minore o ugua¬ 
le/maggiore a 128. Per esempio: se 
nella 1 locazione del Display File si 
trova il carattere di codice 38, corri¬ 
spondente alla lettera “A”, vi viene 
aggiunto 128 in modo che il nuovo 
carattere abbia codice 166 (38 + 
128), corrispondente alla lettera 
“A” in campo inverso. 

Se inseriamo questa routine in un 
ciclo FOR ... NEXT, la continua 
inversione del video ha come effetto 


il lampeggio dello stesso. Natural¬ 
mente il numero di ripetizioni del 
ciclo deve sempre essere pari, altri¬ 
menti alla Fine del ciclo il video ri¬ 
mane invertito. 

Anche questa routine può essere 
usata solo su parte del video. La 
locazione che contiene il numero 
delle linee oggetto della inversione è 
la quinta della routine; variandone il 
contenuto con valori da 1 a 24 si 
ottiene l’effetto sul numero di linee 
inserite in tale locazione (nel pro¬ 
gramma roulette 18). 

Passiamo ora ad analizzare il listato 
BASIC della figura 4. Le REM inse¬ 
rite lo dividono in blocchi per ren¬ 
derne più chiara la lettura. Esami¬ 
niamo i blocchi individualmente. 
3115 - 3180: stampa il numero uscito 
e provvede al lampeggio dello stesso 
sul tappeto. 


4000 - 4250: aggiorna i capitati dei 
singoli giocatori. 

5000 - 5070: in caso la puntata sia 
superiore al capitale a disposizione 
lo ZX lo segnala scherzosamente di¬ 
cendo che “non si fa credito” e invi¬ 
tando il giocatore a ripeterla. 

5200 - 5230: subroutine per la con¬ 
ferma da parte del giocatore che in¬ 
tende saltare il turno di gioco. 

5100 - 5140: subroutine per l’uscita 
dello zero. 

5500 - 5880: controlla se il giocatore 
ha vinto e, nel caso affermativo po¬ 
ne a 1 la variabile V. 

5900 - 5990: aggiornamento capitali 
per chi non ha giocato o ha puntato 
sulle combinazioni semplici ed è 
uscito lo “zero”. 

6000 - 6740: inserimento delle pun¬ 
tate numeriche. Ognuna di essa è 
contraddistinta da un numero da 1 a 
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7 (vedasi figura 1 “Istruzioni”) e per 
pgni tipo vi sono le istruzioni alle 
relative centinaia. 

8000 - 8200: subroutine contenente 
le istruzioni alle quali si accede nella 
fase iniziale del gioco. 

Il programma presenta inoltre un 
notevole uso dell’operatore logico 
AND che permette un notevole ri¬ 
sparmio di memoria. 

Si prenda ad esempio la linea: 

1080 GOTO 1080 + (10 AND IN- 
KEY$ = “N”) + (6920 AND IN- 
KEY$ = “S”) 

che sostituisce le seguenti linee: 
1080 IFINKEYS = “S” THEN GO¬ 
TO 8000 

1085 IF INKEYS < > “N” THEN 
GOTO 1080 

altro esempio sono le linee 3120 - 
3130 - 3140 che sostituiscono ben 
6 istruzioni IF e le linee 380 e 1150 
che consentono l’incolonnamento a 
destra di numeri inferiori alle centi¬ 
naia. 

Nonostante l’uso del suddetto 
operatore il programma occupa 
quasi 9 Kbyte di memoria per le sole 
istruzioni. 

Si ricorda infine che i numeri neri 
sono stampati nero su bianco men¬ 
tre quelli rossi sono stampati in 
campo inverso in seguito alla man¬ 
canza del colore nello ZX81. Per 
quanto riguarda la stampa del tap¬ 
peto viene utilizzato il carattere gra¬ 
fico cod. 8 (GRAPHICS SHIFT A). 
1: REM iniziale contenente alle pri¬ 
me 36 locazioni i caratteri che iden¬ 
tificano il colore del numero uscito. 
Seguono le due routine in linguag¬ 
gio macchina illustrate ed i caratteri 
contenenti il valore delle vincite re¬ 
lative ai vari tipi di puntate possibili. 
Per l’inserimento della REM proce¬ 
dere come segue: copiare dalla figu¬ 
ra 4 i primi 36 caratteri “R” e “N” 
così come scritti e continuare la li¬ 
nea REM con altri 56 caratteri a 
caso. 

100 - 180: carica nella REM 1 il lin¬ 
guaggio macchina relativo alle due 
routine utilizzate nel programma 
per la velocizzazione del video. I co- 



G S (10, 10) 

Matrice contenente il nome dei giocatori. 

S(10) 

Matrice contenente la somma a disposizione dei giocatori. 

P(10) 

Matrice contenente l’importo della puntata. 

T (10) 

Matrice contenente il tipo di puntata scelta. 

N (10) 

Matrice contenente il numero relativo al tipo di puntata scelta. 

NG 

Numero dei giocatori. 

DF 

Inizio del Display File. 

DFA/DFB 

Locazioni che identificano nel Display File il numero uscito (ne¬ 
cessarie per il lampeggio dello stesso). 

N1J 

Numero uscito. 

C $ (13, 7) 

Matrice contenente i tipi di combinazioni possibili. 

V 

Identificatore della vincita. 


Figura 5. Elenco delle variabili utilizzate. 



Figura 6. Immagine del tappeto di gioco come appare sul video. 

Questa immagine viene richiamata velocemente nel Display File usando la 
routine in linguaggio macchina della figura 2. 


dici sono contenuti nella stringa B$, 
in esadecimale. 

200 - 410: predispone il video con i 
tipi di puntate possibili e le relative 
vincite; il tutto viene salvato nella 
RAM alta. 

500 - 620: viene creato il tappeto di 
gioco ed anch’esso salvato nella 
RAM alta. 

700 - 790: generazione delle matrici 
per il gioco; vedasi nella figura 5 
“elenco delle variabili” a cosa si rife¬ 
riscono. 

1000 - 1200: inizio gioco che riman¬ 
da alla stampa delle istruzioni in ca¬ 
so di richiesta ed introduzione nu¬ 
mero dei giocatori con i relativi no¬ 
mi. 

1210 - 1270: presentazione del tap¬ 


peto di gioco con invio alla puntata. 
1500 -1760: introduzione delle pun¬ 
tate: prima il capitale rischiato, poi 
il tipo di puntata ed i numeri alla 
quale si riferisce. 

Vi è la possibilità di saltare il tur¬ 
no inserendo 0 alla richiesta del ca¬ 
pitale. Prima di accettare la puntata 
viene richiesta conferma al giocato¬ 
re. 

3000 - 3040: scelta casuale del nume¬ 
ro uscito e predisposizione delle va¬ 
riabili per il lampeggio del numero 
sul tappeto. 

3050 - 3100: utilizzo della routine in 
linguaggio macchina per il lampeg¬ 
gio c|el tappeto di gioco per dare 
l’impressione della scelta casuale del 
numero. ■ 
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— Parte prima — 


Un potente text editor 
per il Commodore 
VIC 20 


di Alessandro Guida 


TVPE-WRITER 1 

TEXT EDITOR PER VIC 20 


iti * 

41 Pro 9 rafnma realizzato dalla 1 41 

* 41 

41 STUDIO PO Software di Rleaaandro Quid* 4i 
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* vi* Panzani,13 30123 FIRENZE « 
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Queato Pro9ramma lun9i dall'«.sere considerato un word- 
processor e' stato concepito Per la massima facilita' d'uso. 
Perciò' e' video orientato, cioè' sul monitor si ha sempre 
l'esatto formato di stampa, ed osni operazione sul testo 
viene effettuata a99iornando Immediatamente il monitor. 

Lo schermo e' una finestra di 22 colonne x 22 linee su un 
foSlio di 80 x 70. 

Di se9uito sono riportati tutti 1 comandi di cui dispone 
Questo text editor e una sPle9azione del loro 
funzionamento. 

Ricordiamo intanto alcune interessanti Partlcolarlta'. La 
Piu' insolita ma oseremmo dire la Piu' sofisticata e' la 
Possibilità' di Passare in qualsiasi momento in modo 
calcolatore Per ese9uire operazioni aritmetiche. Con la 
semplice Pressione di un tasto si torna al testo o 
addirittura si Può' avere l'introduzione automatica del 
risultato nel Punto in cui si era lasciato il cursore. 

Rltre Particolarita' sono la 9iustiflcazione del testo a 

Figura I. Esempio di testo composto con il programma presentalo in questo 
articolo. 


I l nome dato al programma 
chiarisce lo spirito di questo 
lavoro: Type-Writer vuol di¬ 
re “macchina per scrivere”. Infatti, 
il VIC verrà trasformato in una mo¬ 
derna macchina per scrivere, dotata 
di numerosi ed utilissimi comandi 
per facilitare la stesura di pagine di 
testo. 


Cos’è un Text Editor 

Un Text Editor è un programma 
che permette la stesura, correzione, 
stampa ed archiviazione su memo¬ 
ria di massa di testi. 

Il primo vantaggio offerto da un 
Text Editor è quello di potersi spo¬ 
stare con il cursore per tutto il testo. 
Diventano, quindi, molto facili le 
operazioni di correzioni che si otten¬ 
gono semplicemente portando il 
cursore sulla parola sbagliata e ri¬ 
scrivendola corretta. 

Inoltre, questo tipo di programmi è 
dotato di tutta una serie di comandi 
che permettono di alleggerire note¬ 
volmente sia il lavoro di composi¬ 
zione che quello di correzione. 

Ad esempio, tra le possibilità of¬ 
ferte dai Text Editor c’è sempre l’al¬ 
lineamento automatico a destra del 
testo, la inserzione e cancellazione 
di intere linee di testo, e il ritorno a 
capo automatico con il trasferimen¬ 
to alla riga successiva della eventua¬ 
le parola incompleta. 


È chiaro, quindi, che non sarà più 
necessario buttare via decine di fogli 
di carta per errori di sintassi poiché 
si potrà controllare accuratamente il 
testo e correggerlo prima di inviarlo 
alla stampante. 


Implementazione sul VIC 

Il VIC impone delle limitazioni, 
dovute sia allo schermo da 22 colon¬ 
ne e sia alla poca memoria disponi¬ 
bile. 
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Il programma è stato scritto per il 
VIC con una espansione da 16 
Kbyte ed una stampante. Come me¬ 
moria di massa è possibile utilizzare 
sia il registratore che il lettore floppy 
disk. 

Anche in questa configurazione, pe¬ 
rò, sono necessari alcuni compro¬ 
messi. Primo, non è possibile la vi¬ 
sualizzazione di tutto il testo sullo 
schermo ma solo di una parte detta 
“finestra”. Questa finestra è gestita 
automaticamente dal programma 
che provvede a spostarla quando il 
cursore giunge al limite dello scher¬ 
mo in una qualsiasi delle quattro 
direzioni. 

Il secondo compromesso è dovu¬ 
to ai 16 Kbyte di RAM che sono 
pochini per contenere il programma 
e i testi contemporaneamente. Per¬ 
ciò si è limitato il testo ad una pagi¬ 
na per volta (80 colonne per 70 ri¬ 
ghe). Va detto, però, che la gestione 
di più pagine da disco o da nastro è 
molto semplice e veloce. 


Il programma 

Il programma, lungi dall’essere 
considerato un word-processor, è 
stato concepito per la massima faci¬ 
lità d’uso. 

Perciò è video-orientato, cioè sul 
monitor si ha sempre l'esatto forma¬ 
to di stampa, ed ogni operazione sul 
testo viene effettuata aggiornando 
immediatamente il video. 

Lo schermo è una finestra di 22 co¬ 
lonne x 22 linee su un foglio di 80 x 
70 . 

Di seguito riporteremo tutti i co¬ 
mandi di cui dispone “Type-Writer 
1” ed una spiegazione del loro fun¬ 
zionamento. 

Ricordiamo, intanto, alcune inte¬ 
ressanti peculiarità di questo pro¬ 
gramma. 


GQL Sof'tuaK'e 
vi» Q.A.Mi Ione/18 

72821 Francavilla F. P.Iva 0123456789012343 

SPett. Personal Software 
via Rosei lini,12 
20100 MILANO 

P. Iva 1111111111111111 


Fattur* 

n. ** del **/**/**** 



Rif. Boi 1 a c. -n. ** del **/**/**## 





Costo 

Costo 

Quant. 

Descrizione 

Unitario 

Totale 

* 

************************ 

***** 

****** 

* 

+ + + + + + + + + + + * + + **1 + * + + #* + # 

***** 

****** 


TOTALE ******* 


IVA 18 V. ****** 


TOT. FATTURA ******* 

Pesamento '■ 

Figura 2. Esempio di maschera utilizzabile per /’ emissione di piccole/allure. Il 
completamento delle varie voci è facilitato dalla possibilità di eseguire i calcoli 
senza mai abbandonare il Text-Editor. 

// tasto permette di riportare direttamente il risultato ne! testo. 



COMANDI DA TASTIERA 

C RSR IIP, DOWN 
RIGHT, LEFT 

Muovono il cursore e una volta raggiunto uno dei bordi pro¬ 
vocano lo scrolling della finestra video. 

SHIFT 

Auiva la seconda funzione del tasto premuto contemporaneamente. 
Per le lettere si hanno le maiuscole. 

RETURN 

Ritorno a capo del rigo seguente. 

HOME 

Riporla il cursore all'angolo in alto a sinistra. 

CLR 

Pulisce completamente la pagina video. 

DEL 

Cancella il carattere che precede il cursore spostando tutti i caratteri 
seguenti fino al termine della linea 

INST 

Inserisce uno spazio spostando a destra i caratteri a partire da quello 
sotto il cursore. Nello spingere a destra i caratteri vengono eliminati 
gli spazi superflui per cercare di non superare il margine destro 
imposto. 
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Type - Writer 1 


La più insolita, ma oseremmo dire la 
più sofisticata è la possibilità di pas¬ 
sare in qualsiasi momento in “modo 
calcolatore” per eseguire operazioni 
aritmetiche. Con la semplice pres¬ 
sione di un tasto si torna al testo o, 
addirittura, si può avere l’introdu¬ 
zione automatica del risultato nel 
punto in cui si era lasciato il cursore. 
Altre particolarità sono la giustifi¬ 
cazione del testo a destra (non obbli¬ 
gatoria!), la possibilità di definire 
dei margini entro i quali comporre il 
testo e, infine, l’avere conservato in¬ 
tatte le funzioni originali di editing 
della Commodore. 

Come abbiamo detto, il programma 
gira sul VIC con espansione RAM 
da 16 Kbyte. La memoria è così sud¬ 
divisa: 


$ 1000-$ 11 FF Area Schermo 
$ 1200-S3FFFF Area BASIC 
$4000-$5600 Pagina Testo 
S5700-S5FFF Routine in L.M. 

e 

Gli usi di questo programma sono 
innumerevoli. Si possono scrivere 
lettere, testi, piccoli manuali o anche 
stampare fatture come si può vedere 
in figura 2. Quest’ultimo compito è 
facilitato dalla possibilità di tenere 
sempre su disco la maschera della 
fattura e dal fatto di poter eseguire 
calcoli senza abbandonare il text- 
editor. 


Uso del programma 

L’uso di “Type-writer I” è estre¬ 
mamente semplice. Dato LOAD 
“TYPE-WRITER I” (,8 se si utiliz¬ 
za il disco) viene caricata in memo¬ 
ria la parte contenente le routine in 
linguaggio macchina. 

Battuto il RUN, le routine vengono 
allocate in memoria,e il programma 
provvede da solo a caricare la re¬ 
stante parte. 

Subito dopo appare la richiesta di 
alcuni parametri. Se non vogliamo 
modificarli basta premere RE¬ 
TURN. 


COMANDI DIRETTI 

Quesii comandi vanno dati premendo contemporaneamente il tasto indicato e il tasto 
“CTRL". 

Tasto 

Funzione 

Descrizione 

/(?) 

HELP 

Fornisce in ogni momento il riepilogo dei comandi a disposizione, 
senza perdere il testo in memoria. 

A 

Al'TO 

Esegue l’allineamento del testo con il margine destro. 

R 

BLOC’ 

Questo comando va dato con il cursore sulla prima colonna. 
Compare una “B" in reverse che impedisce l’esecuzione dell'alline¬ 
amento a destra sulla stessa linea. 

C 

CALC 

Entra in MODO CALCOLATORE (vedi). 

D 

DEL 

Cancella lutti i caratteri della riga dal cursore in poi. 

F 

FINO 

Cerca nel testo una stringa lunga al massimo 10 caratteri. La 
richiesta del testo da cercare compare sull’ultima riga in basso 
dello schermo. 

Si scrive il testo e si batte RETURN. Se il testo non viene rintraccia¬ 
to all'interno della pagina, appare il messaggio “NOT FOUND" 
con la domanda se si vuole eseguire un’altra ricerca. 

Se invece la ricerca ha risultato positivo il cursore si sposta sulla 
prima ricorrenza del testo nella pagina. Per proseguire nella ricerca 
è sufficiente premere ancora CTRL + F. 

H 

HIGH 

Seleziona i caratteri in doppia larghezza. Questo comando viene 
accettato solo se il cursore si trova sulla prima colonna, dove viene 
riportata una D in reverse per conferma. 

Il computer considererà, poi, doppi i primi 40 caratteri apparte¬ 
nenti alla stessa linea, ignorando, in fase di stampa, tutti gli altri 
fino al termine della riga. 

1 

INS 

Inserisce una linea vuota sotto il cursore facendo scivolare tutte le 
linee seguenti in basso di una posizione. 

M 

MEM 

Entra in MODO GESTIONE MEMORIA DI MASSA (vedi). 

P 

PRIMI 

Stampa su carta una copia esatta della pagina di testo composta. 

S 

SEQ 

Stampa su carta una sequenza di pagine caricate dal disco. 

T 

TRANS 

Ricopia una riga di testo da un punto ad un altro. Basta posiziona¬ 
re il cursore sulla linea da trasferire e premere i tasti CTRL e T. Per 
rammentare che la linea è pronta per essere trasferita apparirà 
sull’ultima riga di schermo una T in reverse. Ora. in qualunque 
momento vengono premuti nuovamente i tasti CTRL e T, la riga 
viene ricopiata sulla linea dove si trova il cursore. 

U 

IIP 

Cancella la linea sotto il cursore forzando le linee seguenti a risalire 
di una posizione. 

V 

VTEW 

Permette di osservare la pagina con uno scrolling molto veloce. I 
tasti cursore spostano la finestra nelle quattro direzioni. La pres¬ 
sione di qualsiasi altro tasto ritorna all'editing normale. 

@ 

PAR 

Ritorna alla definizione dei parametri iniziali. 

1.2,3 

TAB 

Spostano il cursore, direttamente ad un punto della linea stabilito 
all’inizio del programma o con il comando CTRL +@ 
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Le informazioni richieste sono: 
TAB 1-2-3. Sono tre posizioni sullo 
schermo alle quali si può saltare di¬ 
rettamente premendo il tasto CTRL 
più il tasto 1 o 2 o 3. 

Margine sinistro-destro. Sono i mar¬ 
gini entro i quali deve essere conte¬ 
nuto il testo. Il testo che vedete in 
figura 1, ad esempio, usa margine 
sinistro = 10 e margine destro = 70. 
Numero righe per pag. Indica al pro¬ 
gramma di quante righe è composto 
il foglio. Tale valore è normalmente 
66 o 72. 

A questo punto appaiono .sull’ulti¬ 
ma linea in basso dello schermo, le 
coordinate del cursore, e la finestra 
sul testo da comporre. 

Da questo momento, si può co¬ 
minciare a digitare il testo desidera¬ 
to. 

Inizialmente lo schermo appare pie¬ 
no di caratteri casuali. Questo è do¬ 
vuto al fatto che all’inizio non viene 
ripulita la pagina di schermo per 
permettere, in caso di errore, di ri¬ 
prendere il programma senza perde¬ 
re il testo già scritto. 


I comandi 

I comandi sono di tre tipi. 

1) I comandi di tastiera. Sono fun¬ 
zioni che vengono attivate semplice- 
mente premendo il tasto corrispon¬ 
dente sulla tastiera. 

2) I comandi diretti. Sono i comandi 
che vengono eseguiti premendo il 
tasto CTRL più il tasto corrispon¬ 
dente al comando scelto. 

3) I comandi indiretti. Sono i co¬ 
mandi a cui si acccede per mezzo di 
un’altro comando. 


I file testo e i file sequenziali 

È possibile trattare anche piccoli 
file sequenziali, lunghi non più di 
5600 byte. I file sequenziali sono 
rappresentati sullo schermo nor¬ 
malmente con i vari record separati 
da un RETURN (codice ASCII = 




COMANDI INDIRETTI 

A questi comandi si 
o CTRL + M. Per i 

accede con uno dei due comandi diretti visti prima CTRL + C 
comandi indiretti non è necessaria la pressione del tasto CTRL. 

MODO CALCOLATORE 

X.* 

MOLT 

Segni validi per moltiplicare due numeri. 

+ 

ADD 

Somma. 

— 

SUB 

Sottrazione. 


DIV 

Ambedue validi per indicare la divisione. 

% 

PF.RC 

Serve a calcolare la percentuale, indicata dal secondo numero, del 
primo. 

Se per esempio vogliamo calcolare il 20 '7< di 160 si dovrà imposta¬ 
re: 160 r /i 20 = e il risultato sarà 32 

= 

RES 

Calcola il risultalo. 

0 

QIIIT 

Ritorna al Text-Editor. 

V 

F.NTF.R 

Ritorna al Text-editor inserendo il risultalo del calcolo nel punto 
del lesto in cui era stalo lasciato il cursore. 

MODO GESTIONE MEMORIA MASSA 

L 

LOAD 

Carica dal floppy o dal registratore una pagina di testo. Attenzio¬ 
ne. perchè eventuali testi già in memoria vanno persi. 

S 

SAVE 

Registra nella memoria di massa una pagina di testo dopo aver 
specificato se si tratta di un testo o di un file sequenziale. 

R 

REN 

Permette di cambiare il nome assegnato ad una pagina già registra¬ 
ta. 

F 

FORM 

Esegue la formattazione di un dischetto nuovo. 

D 

DEL 

Cancella dal dischetto una pagina già registrata. 

$ 

DIR 

Visualizza il contenuto di un dischetto. 

0 

QUIT 

Torna al Text-Editor. 


DIFFERENZA TRA TEXT-EDITOR E WORD-PROCESSOR 

Probabilmente molti di voi avranno sentito parlare dei programmi di word- 
processing, e si staranno chiedendo la differenza che intercorre tra questi e un 
text-editor. 

In effetti, questi due termini sono molto simili e indicano entrambi una categoria 
di programmi volti all'elaborazione automatica dei testi. 

In particolare, il word-processor, come dice lo stesso nome, scende fino al livello 
della singola parola. Rappresenta, quindi, un passo in avanti rispetto al Text- 
Editor. 

È, infatti, sempre dotato di opzioni che gli permettono la divisione sillabica delle 
singole parole, o la ricerca e sostituzione di una parola con un’altra. Alcuni di 
questi word-processor sono, addirittura, in grado di controllare l’esatta sintassi 
delle parole. 

Inoltre, sono tutti in grado di collegarsi con programmi di archiviazione per 
l’introduzione automatica, nei testi elaborati, di dati e informazioni provenienti 
da detti archivi. 

In pratica tali programmi trovano applicazione (anche a causa del loro costo 
non trascurabile) negli uffici, dove la velocità di elaborazione e la necessità di 
eseguire stampe di circolari personalizzate sono esigenze molto sentite. 
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/(?) 

IST 

H 

HIGH 

U 

UP 

A 

AUTO 

I 

INS 

V 

VIEW 

B 

BLOC 

M 

MEM 

@ 

PAR 

C 

CALC 

P 

PRINT 

I 

TABI 

D 

DEL 

S 

SEQ 

2 

TAB2 

F 

FIND 

T 

TRANS 

3 

TAB3 


$ 

DIR 

L 

LOAD 

S 

SAVE 

D 

DEL 

Q 

QUIT 

f 

ENTER 

F 

FORM 

R 

REN 




Lista dei principali comandi de! Type-Writer. 


Type - Writer 1. 

13) rappresentato con una freccia in 
reverse. Nell’editing di questi file il 
return va introdotto battendo 
SHIFT + RETURN. 

La fine del file si indica con il carat¬ 
tere freccia in su. 

Nell’operazione di SAVE, natu¬ 
ralmente va specificato se si tratta di 
un file di testo o di un file sequenzia¬ 
le. 


Conclusioni 

Come avrete certamente potuto 
apprezzare, il Type-Writer 1, pur ri¬ 
manendo un programma studiato 
per il piccolo VIC 20, non sfigura al 
confronto di text-editor per macchi¬ 
ne più grosse. Anzi, può vantare del¬ 
le caratteristiche che nessun altro 
programma del genere possiede (ve¬ 


di il modo calcolatore). 

Lo sforzo principale è stato comun¬ 
que quello di fare un programma 
coerente con le dimensioni del VIC e 
delle periferiche più economiche di 


cui dispone. 

La prossima puntata pubbliche¬ 
remo tutti i listati, e le notizie relati¬ 
ve. Sarà disponibile anche il pro¬ 
gramma su dischetto. ■ 



Quando il computer parla il linguaggio delle immagini 


La computer grafica rappresenta un campo di 
applicazione dell'informatica relativamente 
nuovo, ma suscettibile di imprevedibili 
sviluppi. Questo volume, nato in 
collaborazione con alcune delle più 
specializzate istituzioni del settore, esamina 
tutte le possibilità di questa scienza nuova e 
affascinante: dall'animazione cinematografica 
e televisiva ai businnes graphics; dalla 

Mauro Salvemini 


progettazione in architettura a quella In 
elettronica e in meccanica; dalla mappazione 
alla manipolazione tridimensionale delle 
immagini... Realizzata in modo da permettere 
un rapido, ma esauriente approccio 
all’argomento, l’opera si rivolge a quanti 
(lettori-utenti) siano alla ricerca dei necessari 
chiarimenti per una corretta e proficua 
utilizzazione delle tecniche di Computer grafica. 


COMPUTER 

GRAFICA 

176 pagine. Lire 29.000 
Codice 519 P 


GRUPPO 

EDITORIALE 

JACKSON 


Per ordinare il volume utilizzare 
l’apposito tagliando inserito in fondo alla rivista 
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VOI E IL VOSTRO 
COMMODORE 64 

Un esaudiente vademecum 
sulla programmazione in 
BASIC dal Personal ad oggi 
tra i più diffusi. 

Facile, brillante ricco di 
programmi verificati, questo 
è un prezioso volume sia 
per i neofiti che per gli 
utilizzatori più esigenti. 

256 pag. L. 22.000 
Cod. 347 B. 


PROGRAMMAZIONE 
DELLO ZX SPECTRUM 

Aggiungete suono e colore 
ai vostri programmi, 
scoprite lo SPECTRUM 
negli affari e nell'istruzione, 
giocate e imparate a 
scrivere i giochi, disegnate 
figure in 3 dimensioni. 

212 pag. L. 18.000 
Cod. 531 D. 


APPLE MEMO 

Sintassi dei comandi, codici 
dei caratteri, messaggi di 
errore, linguaggio 

macchina, indirizzi utili. 

Un libro destinato a stare in 
permanenza a fianco del 
vostro Apple. 

146 pag. L. 15.000 
Cod. 340 H. 


BASIC SU APPLE 
programmi in pochi minuti 

65 programmi pronti che vi 
risolveranno problemi che 
vanno dalla “economia 
domestica", alle 
applicazioni commerciali, ai 
calcoli statistici, alla 
creazione degli archivi. 

184 pag. L. 14.000 
Cod. 532 H. 


APPLE TUTTO FARE 
Collegamenti e progetti 

Questo libro è stato scritto 
per chiunque voglia capire 
come l'APPLE e gli altri 
home computer, possano 
essere interfacciati con il 
mondo esterno.' 

208 pag. L. 18.000 
Cod. 334 D. 


PET/CBM GUIDA 
ALL'USO VOL. 1 e VOL. 2 

È la versione italiana del 
famosissimo testo 
americano: "PET/CBM 
Personal Computer Guide” 
ed è presentato in due 
volumi data l’ampiezza e la 
profondità degli argomenti 
trattati. In questo manuale 
troverete tutto ciò che è 
necessario sapere sui 
calcolatori COMMODORE. 
VOL 1 250 pag. L. 20.000 
cod. 332 P 

VOL 2 282 pag. L. 22.500 
cod. 333 P 


La Biblioteca 
che fa testo 

_ CEDOLA DI COMMISSIONE LIBRARIA 
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Esposizioni Internazionali dell’Automazione 
...1982 Parigi “MESUCORA”... 1983 Dusseldorf “INTERKAMA” 

1984 MILANO - B.I.A.S. 


Solo il BIAS nel 1984 in Europa presenta l’Automazione e la Microelettronica 



Fiera di Milano 
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chermo Apple-C 64 
—e la ragnatela- 





Un programma per 
convertire facilmente 
software da Apple 
a Commodore e 
viceversa e un gioco 
che ne esemplifica l’uso 


di Claudio Poma 

I l programma schermo Apple 
e C 64 del listato 1, serve a 
tradurre i dati riferiti agli 
schermi dei due computer. 

Come sapranno tutti coloro che 
hanno provato a convertire un pro¬ 
gramma per Apple II sul loro C 64, o 
viceversa, il problema che presenta 
le maggiori difficoltà (non tanto tec¬ 
niche, quanto in perdita di tempo) è 
quello di ottenere una precisa visua¬ 
lizzazione dello schermo: basta una 
colonna in più o in meno, una mini¬ 
ma discrepanza nelle POKE e se ne 
vedono veramente di tutti i colori. 

Ora, una volta fatto girare questo 
programma scritto su un Apple, ma 
che gira perfettamente anche sul C 
64 senza bisogno di alcuna modifi¬ 
ca, tutti questi problemi non faran¬ 
no più perdere tempo prezioso, oltre 
a dimostrare come i computer pos¬ 
sano essere utilizzati per superare 
almeno alcune differenze che li ca¬ 
ratterizzano. 


Come funziona 

Una volta dato il RUN, il pro¬ 
gramma chiede quale sia la macchi¬ 
na di cui si hanno i dati: attenzione 
quindi perchè non bisogna dire qua- 
l’è il proprio computer, ma quello 
per cui è stato scritto il programma 


che si vuole convertire. 

Dopo la verifica di quanto detto 
(linee 60-90) il programma passa al¬ 
la parte pratica. Se dovete tradurre 
dei dati dell’Apple in quelli del C 64, 
vi sarà chiesto se tali dati sono 
espressi in POKE o VTAB-HTAB; 
tutti i dati successivamente intro¬ 
dotti verranno convertiti nei corri¬ 
spondenti valori schermo dell’altra 
macchina e per quanto riguarda Ap¬ 
ple anche la POKE individuata dalla 
coppia VTAB-HTAB richiesta. 

In questo modo il programma 
può essere utilizzato anche solo per 
convertire un VTAB-HTAB in PO¬ 
KE sempre per Apple, cosa che ogni 
tanto può servire. Non sono trattati 
i valori di riga e colonna del C 64 
non per negligenza, ma solo per non 
allungare il programma con opera¬ 
zioni elementari: infatti per ottenere 
tali valori basta diminuire di 1 i va¬ 
lori di VTAB e HTAB che sono evi¬ 
denziati in ogni punto del program¬ 
ma. Questo perchè la prima riga e la 
prima colonna assumono nell’Ap¬ 
ple il valore 1, mentre nel C 64 il 
valore 0. A parte questo nessuno vi 
impedisce di effettuare, in modo 
molto semplice, le aggiunte necessa¬ 
rie. 

Se siete invece in possesso dei dati 
del C 64 e volete convertirli negli 
equivalenti dell’Apple II, vi sarà 
chiesto se tali dati riguardano la me¬ 
moria schermo o colore riportando i 
valori limite (linee 310-370); quindi 
dovrete battere i dati che possedete e 
immediatamente avrete la traduzio¬ 
ne per l’Apple e dato che lo schermo 
di tale computer ha 24 linee contro 
le 25 del C 64, se la POKE del Com¬ 
modore è posta sull’ultima riga, il 
programma vi avvisa della cosa con 
la linea 455. Lo stesso avviene quan¬ 
do all’introduzione di dati POKE 
dell’Apple questi corrispondono a 
POKE non visualizzate (linea 660), 


anche se tale possibilità dovrebbe 
essere solo teorica nella conversione 
di un programma. 

Il programma non ha la pretesa di 
risolvere le differenze esistenti tra 
sistemi diversi e quel poco che fa 
può senz’altro essere potenziato da 
ogni lettore in riferimento alle esi¬ 
genze personali; nonostante ciò re¬ 
sta un buon esempio delle possibili¬ 
tà non ancora sfruttate in questa di¬ 
rezione e chissà che in un tempo non 
molto lontano non ci si debba pre¬ 
occupare più di tanto in merito al 
computer cui è destinato un pro¬ 
gramma ... 


La ragnatela 

Il programma in questione è un 
gioco e, più precisamente, un labi¬ 
rinto. L’argomento è certamente 
sfruttato, ma non si tratta di man¬ 
giare solo puntini: ci sono tesori, il 
fantasma del guardiano che insegue 
passando attraverso i muri, un tem¬ 
po da rispettare, bonus ... il tutto 
sempre ben evidenziato sullo scher¬ 
mo in ogni momento del gioco e poi 
il programma si presenta come com¬ 
plemento ideale a Schermo Apple E 
C 64 e come buon esercizio di tradu¬ 
zione per i possessori di C 64. Infatti 
il listato 2 è la versione per Apple II 
del gioco: gli utenti del C 64 possono 
facilmente tradurlo usando appunto 
il programma precedente. 


Descrizione del programma 

Dopo la definizione delle variabili 
viene stampato il labirinto, quindi la 
linea 70 manda alla subroutine che 
posiziona i tesori scegliendo a caso 
tra trenta punti predefiniti con delle 
DATA. La linea 80, seguendo lo 
stesso procedimento, piazza le trap- 
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pole. Il gioco inizia: le linee 100-107 
danno le informazioni aggiornate in 
merito a punti, tempo, record, N° 
giro, N° tesori rimasti da trovare per 
terminare il percorso, punti che si 
perderebbero cadendo in una trap¬ 
pola e, infine, punti bonus che si 
vincerebbero terminando in quel 
momento il percorso. 

La linea 109 cancella i simboli del 
giocatore (★) e del guardiano (X). 
Per quest’ultimo si è usata una va¬ 
riabile (L$) in modo da permettere il 
passaggio tra i muri e su tesori e 
trappole senza che questi vengano 
cancellati. 

Dalla 110 alla 135 viene definito il 
movimento del giocatore: la 
PEEK(—16384) ricorda l’ultimo ta¬ 
sto premuto; mentre da 140 a 170 
viene definita la posizione del guar¬ 
diano tenendo in considerazione la 
posizione del giocatore (150-160). 


Nella subroutine 1000-1100 le linee 
da 1000 a 1040 definiscono la posi¬ 
zione del guardiano mentre dalla 
1050 alla 1080 viene definito il carat¬ 
tere che dovrà rappresentare il guar¬ 
diano quando questo si sarà sposta¬ 
to in una nuova posizione. La linea 
180 manda alla routine di fine parti¬ 
ta qualora le posizioni del giocatore 
e del guardiano coincidano, mentre 
se questo non avviene il programma 
continua leggendo il carattere della 
nuova posizione del giocatore e 
agendo di conseguenza a seconda 
che si tratti del muro, di tesori o di 
trappole. Quindi il programma rico¬ 
mincia a calcolare una nuova mos¬ 
sa. 

Conclusioni 

Il programma non ha nessuna 
pretesa di originalità e inoltre può 


essere arricchito con altre varianti 
che renderebbero il gioco più vario 
ed impegnativo: da una diversa for¬ 
ma del labirinto per ogni fase del 
gioco ad un numero crescente di 
guardiani e ad una loro maggiore 
precisione nell’inseguire il giocato¬ 
re. La sua utilità sta, invece, nella 
facilità con cui può essere convertito 
per il C 64 per mezzo dell’aiuto del 
programma Schermo Apple e C 64 
che è essenziale per la traduzione 
delle linee DATA, mentre il resto è 
praticamente identico a parte le li¬ 
nee da 1000 a 1040 e la routine 500 
più le linee 182-183 che sono sempli- 
ficabili nella formula generale PO- 
KE SCHERMO = 1024+Y+40^X. 


Listato 1. Programma Schermo Apple e C 64. Può 
essere utilizzato sia dai possessori di Apple che da 
quelli di Commodore. 


IO HOME : REM 064 IO ?"<SHIFT-C 
LR/HOME>" 

20 FRINÌ : FRINT : FRINT "HAI I 
DATI DI UN APPLE ÌC 0 DI UN 
C 64 ?" 

25 FRINT "(A/C) ? "; 

30 GET A*: IF Ai = "A" THEN Bit = 
"APPLE It" : GOTO 60 
40 IR A$ = "C" THEN Bit = "C 64": 

BOTO 60 
50 GOTO 30 

60 PRIMI' : FRI NT : PRINT "E’ VER 
O CHE HAI I DATI DI UN "B$" 

65 PRINT "(S/N) ? "5 
70 SET A4: IF A* = "N" THEN IO 
SO IF A4 = "3" AND B4 = "APPLE 1 
C" THEN 100' 

85 IF flt = "S" AND B4 = "C 64" THEN 

300 

90 GOTO 70 

100 HOME 

101 PRINT : PRINT : PRINT "Ora d 
Immi se usi le PDKE (1024-20 
47) o VTAB e HTAB.": PRINT 

"(P/T) 

102 INPUT APit 

103 IF APS = "P" THEN 600 

104 IF APS = "T" THEN HOME : GOTO 
110 

105 GOTO 102 


110 PRINT : PRINT : PRINT "ORA D 
IMMI I DATI DELL’APPLE 3t :" 

120 PRINT : PRINT "COLONNA (HTAB 

> : INPUT HT 

130 PRINT : PRINT "RIGA (VTAB 

) : "5: INPUT VT 

140 F'0 = 1024 + (HT - 1) + 40 * ( 
VT -- 1) 

150 CO = 55296 + (HT -- 1) + 40 * 

(VT - 1) 

155 X = VT:Y = HT: GOSUB 500:PA = 
Q 

160 PRINT : PRINT : PRINT "HTAB" 
HT" E VTAB"VT" DELL’APPLE ]C 

165 PRINT "CORRISPONDONO A POKE" 
PA: PRINT : PRINT "E "j 

170 FRINT "CORRISPONDONO NEL C 6 
4 A : " 

ISO PRINT "- SCHERMO POKE "PO 

190 PRINT "- COLORE POKE "CO 

200 PRINT : PRINT : PRINT "ANCOR 
A ? (S/N) "5 

210 GET A*: IF A* = "N" THEN END 

220 IF AT = "S" THEN 100 

230 GOTO 210 

300 HOME 

310 PRINT : PRINT : PRINT "ORA D 
IMMI SE USI I DATI DELLA MAP 
PA" 

320 PRINT DELLO SCHERMO (IO 
24-2023)" 

330 PRINT "- 0 DEI COLORI (5529 
6-56295)" 
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Schermo 
Apple - C 64 
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Seguito listato 1. 

340 PRTNT : F'RINT "(3/C>"j: INPUT 
MS* 

350 IF MS* = “S" THEN MS = 1024: 

GOTO 380 

360 IF MS* = "C THEN MS = 55296 
: GOTO 380 
370 GOTO 340 
380 HOME 

390 PRINT : PRINT : PRINT "ORA D 
IMMI I DATI DEL C 64" 

400 PRINT : PRINT "F'OKE "; : INPUT 
PO 

410 VT = INT ((PO - MS) / 40) + 

1 

420 HT = PO - MS - 40 * (VT - 1) + 

1 

425 IF VT < 25 THEN X = VT : Y = H 
T: GOSUB 500:PA = Q 
430 PRINT : PRINT : PRINT "A POK 
E"PO" DEL C 64 CORRISPONDONO 

440 PRINT : PRINT "VTAB"VT 
450 PRINT "HTAB"HT 
455 IF VT < 25 THEN PRINT "POKE 
"PA 

460 PRINT : PRINT : PRINT "ANCOR 
A ? (S/N) 

470 SET A*: IF A* = "N" THEN END 

480 IF A* = "S" THEN 380 
490 GOTO 470 

500 IF X = >1 AND X = <8 THEN 

03 = 1023:XX = X 

5.10 IF X = >9 AND X = <16 THEN 

03 = 1063:XX = X - 8 
520 IF X = >17 AND X = < 24 THEN 

03 = 1103:XX = X - 16 
530 Q = 03 + Y + 128 * (XX - 1) 

540 RETURN 
600 HOME 

610 PRINT : PRINT : PRINT "Ora d 
immi i dati dell'Apple." 

620 PRINT : PRINT "POKE :"5 : INPUT 
PA 

630 IF PA < 1024 OR PA > 204,7 THEN 
620 

640 PI = INT ((PA - 1024) / 128) 

650 P2 = (F’A - 1024) - (128 * PI) 

651 P2 = P2 + 1 

660 IF P2 > 120 THEN 900 
670 IF P2 = >1 AND P2 * < 40 THEN 

P3 = 1 

680 IF P2 = >41 AND P2 = < 80 

THEN P3 = 2;P2 = P2 - 40 

690 IF P2 = >81 AMD P2 = <12 

0 THEN P3 = 3:P2 = P2 - 80 
700 X = P1 + (P3 - 1) *8 + 1 :Y = 

P2 

710 PO = 1024 + (Y - 1) + 40 * (X 
- 1) 

720 CO = 55296 + (Y - 1) + 40 * ( 

X - 1) 


Seguito listato 1. 

730 PRINT : PRINT : PRINT "A POK 
E "PA" DELL’APPLE CORRISPOND 
ONO : " 

740 PRINT "VTAB"X" HTAB"Y 
750 PRINT : PRINT "E NEL C 64 CO 
RRISPONDONO A :" 

760 PRINT SCHERMO POKE "PO 

770 PRINT COLORE POKE "CO 

780 PRINT : PRINT : PRINT "ANCOR 
A ? (S/N) "; 

790 GET A*: IF At = "N" THEN END - 

800 IF A* = "S" THEN 100 
810 GOTO 790 

900 PRINT : PRINT : FLASH : PRINT 
"POKE FUORI SCHERMO !!!!" 

910 GOTO 780 


Listato 2. Il gioco della Ragnatela. Questa è la versione 
per Apple che può essere facilmente convertita per il C 
64 utilizzando il programma del listato I. 


1 

GOSUB 3C 

oc 



DIM CA(3 

0) 


4 

PU = 0:PP 

= 999:Gl = 0:TR = 

;>: T 


E = 0: 

RT = 0 


5 

HOME :L* 

= " ":TT = 0 


10 

PRINT " 

44#44#444#4444###44#4 


#4#4#4###44#4###4" 


12 

PRINT " 

# #4# 

#4 


#4# 

4 #4" 


14 

PRINT " 

4 #444444# # #4# 



#4444 # #4 #" 


16 

PRINT " 

4 # 4 4 4 44# 

4 


4# ###### # #" 


18 

PRINT " 

4 4 #4# # 44 

4 


# 

44444" 


20 

PRINT " 

4 # # 4 4 4 44# 

4 


### 

####44" 



PRINT " 

4 4 4 4 #### 

4 


4 # 

# 4 # 4" 


24 

PRINT " 

4 4 4 4 



# # 

4 4 4# #4" 


26 

PRINT " 

4 #4444# 4# #444 4 

4 


# # 

4 4 4 #4" 


28 

PRINT " 

4 4 4 4 4 

4 


4# #4 4 #4 4" 


30 

PRINT " 

4# 4# 4 4# #4 4# 



# 

4 #4# 4 4" 


32 

PRINT “ 

4 4# 4 4 4 4# 

# 


####### 4 4 #" 


34 

PRINT " 

4 #44444# 4 4 4 

4 



4 4 4 4" 


36 

PRINT " 

# #44 4 #44 

#4 


#44# #44444 # # 4" 


38 

PRINT " 

4 ##### 4 4# 




#44# 4 4 4" 


40 

PRINT " 

444 4 4 4 #4444## 


# #44# 

4" 
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Seguito listato 2. 

42 PRINT " ### # ### # # 

##### # ##" 

44 PRINT " # # ### # ##### # 

###### # # #" 

46 PRINT " # ### #### 4 ### 

#### # # #" 

48 PRINT " # #### #### ## ### 

##### # ## # #'• 

50 PRINT " # ## 

## #" 

52 PRINT " ##################### 
#################" 

55 PRINT "Punti:";: HTAB (12 - LEN 
( STR4 (PU))): PRINT PU;: HTAB 
(22 - LEN ( STR4 (P))): PRINT 
Pj: HTAB 28: PRINT "Record:" 

;: HTAB (40 - LEN ( STR4 (R 
E))): PRINT RE 

60 X = 2:Y = 3:A = 21 :B = 38 

70 GOSUB 800 

80 GOSUB 600 

90 FOR T = 1 TO 1OOO: NEXT 


dal 1901 

L’ECO DELLA STAMPA 8 

rassegne da giornali e riviste - direttore Ignazio Frugiuele 

...dal 1901 ritaglia l'informazione 

Via Giuseppe Compagnoni, 28 - 20129 Milano 
Telefoni (02) 710181 - 723333 - 7490625 



Seguito listato 2. 


100 


101 

102 

104 


106 


107 

109 

1 10 
111 
120 

125 

130 

135 

140 

150 

160 

165 

170 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 
200 
290 
300 

310 


vtab 2.:: 
(12 - 
PU; 

VTAB 23 
HTAB (21 
: PRINT 
HTAB 28: 
(40 
RE 

VTAB 
1 ) ; : 

TT) ; 

>4 

HTAB 
(40 


: PRINT "Punti:";: 
LEN ( STR4 (PU))): 


HTAB 

PRINT 


( STR4 <P>>> 


- LEN 
"P; 

PRINT "Record: 
LEN ( STR4 (RE)) 


HTAB 

PRINT 


24: PRINT "Giro : "(Gl + 
HTAB 12: PRINT "4="(TE - 
: HTAB 18: PRINT "@= -"< 
(RT + 1) ) 5 

29; PRINT "Bonus:";: HTAB 
- LEN ( STR4 (P * (Gl + 


1) ) > ) 

VTAB 


PRINT 
: HTAB 


* (Gl 
PRINT 


1 ) ) ' 


VTAB 


A; 

HTAB 

B: PRINT L 4 

K = 

PEEK 

( - 

163BM 

A4 = 

CHR4 (K) 


IF 

ASC 

(A4) 

= 214 THEN 

Y + 

1 



IF 

ASC 

(A4) 

= 195 THEN 

Y - 

1 



IF 

ASC 

(A4) 

= 216 THEN 

X + 

1 



IF 

ASC 

(A4) 

= 211 THEN 

X - 

1 



H m 

INT 

( RND 

( 1 ) * 2) 

IF 

H = 0 

THEN 

A = A + (X 

) ~ 

(X < 

A) 


IF 

H = 1 

THEN 

B = B + (Y 

) - 

(Y < 

B) 



Y = 


Y = 


GOTO 
VTAB 
IF A 
NN = 
01 = 


1000 

A: HTAB 
= X AND 


PRINT "X‘ 


THEN 300 


1) 

( (XX 


Y 

163: GOSUB 500 
03 + 8 * (XX - 
02 = Q1 + Y + 40 * 

3) 

IF PEEK (02) = NN 
(A4) = 214 THEN Y 
IF PEEK (02) = NN 
(A4) = 195 THEN Y 
IF PEEK (02) = NN 
(A4) = 216 THEN X 
IF PEEK (02) = NN 
(A4) = 211 THEN X = 

IF PEEK (02) = 164 
PU + 50iTT = TT + 1 
TE THEN 400 
IF PEEK (02) 

RT + 1 : PU = PU 
VTAB X; HTAB Y 
P = P - 1: IF P 
GOTO 100 

VTAB A: HTAB B: FLASH : 
"GNAMM": NQRMAL : GOTO 
VTAB 12; HTAB 10: FLASH 


1) 


AND 

Y - 
AND 

Y + 
AND 

X - 
AND 
X + 


ASC 
1 

ASC 
1 

ASC 
1 

ASC 
1 

THEN PU = 
IF TT = 


192 

4 * 


THEN RT 
RT 

PRINT 

0 THEN 310 


PRINT 

320 

: PRINT 


"E’ SCADUTO IL TEMPO": NORMAL 


320 IF PU > RE THEN RE = PU 
350 VTAB 24: PRINT "Vuoi giocare 
un’altra partita ? (Y/N) "> 
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Seguito listato 2. 


360 GET K*i IF Ki = "Y” THEN 4 
370 IF Ki = "N" THEN SF'EED= 255 
: END 

380 GOTO 360 

400 Gl = Gl + 1 

410 PU = PU + (P ■* Gl) 

420 VTAB 23; FLASH : PRINT "BENE 
! ! ! HAT TERMINATO UN PERCORS 
0, MA ECCONE UN ALTRO PIU’ 
IMPEGNATIVO." : NORMAL 

430 FOR T = 1 TO 4000: NEXT 
440 GOTO 5 

500 IF X = >1 AND X = <8 THEN 

Q3 = 1023:XX = X 

510 IF X = > 9 AND X = < 16 THEN 

(23 = 1063: XX = X •- 8 
520 IF X = > 17 AND X = <24 THEN 

G!3 = 1103: XX = X - 16 
530 RETURN 

600 IF TE < 30 THEN TE = TE + 3 
61.0 IF PP > 400 THEN PP = PP - 1 
00:P = PP 
615 RESTORE 
620 FOR T = 1 TO TE 
630 RESTORE 

640 READ A*: IF A* = THEN 66 

0 

650 GOTO 640 

660 CA(T) = INT < RND (1) * 30) + 

1 

670 IF T = 1 THEN 710 
680 FOR TI = 1 TO T - 1 
690 IF Cfl(T) = CAm > THEN 660 
700 NEXT 

710 FOR N = 1 TO CA< T ) : READ Z: NEXT 
720 F'OKE Z, 164 
730 NEXT 
740 RETURN 

800 IF TR < 10 THEN TR = TR + 1 
810 FOR T = 1 TO TR 
820 RESTORE 

830 READ Ai; IF Ai = THEN 85 

0 

840 GOTO 330 

850 CA(T) = INT ( RND (1) * 10) + 

1 

860 IF T = 1 THEN 900 
870 FOR TI = 1 TO T -- 1 
880 IF CA(T) = CA(T1) THEN 850 
890 NEXT 

900 FOR N = 1 TO CA(T): READ AA: 

NEXT 

910 F'OKE AA, 192 
920 NEXT 
930 RETURN 

1000 IF A > =1 AMD Ai =8 THEN 

W3 = 1023:AA » A 

1010 IF A = >9 AND A < » 16 THEN 

W3 = 1063:AA - A — 8 
1020 IF A = > 17 AND A < = 24 THEN 

W3 » 1103:AA = A - 16 
1030 W1 * W3 + 8 * (AA - 1) 


Seguito listato 2. 

1040 W2 =» W1 + B + 40 * ( (AA - 1) 

* 3) 

1050 Li- = " " 

1060 IF PEEK <W2) = 163 THEN Li 
= : GOTO 1100 

1070 IF PEEK <W2) = 164 THEN Li 
= GOTO 1100 

1080 IF PEEK (W2) = .192 THEN Li 
-- GOTO 1100 

1100 GOTO 170 

2000 DATA i1383,1169,1311,1414, 
1432,1546,1553,1687, 1798, 182 

9 

2010 DATA 1397,1934,1947,1957,10 
85,1200,1223,1323,1335,1460 
2020 DATA 1639,1600,1741,1849,19 
64,1989,1114,1121,1264,1367 
2050 DATA @,1301,1549,1796,1204, 
1227,1593,1838,1132,1500,151 
5 

3000 HOME 

3010 VTAB 12: HT AB 14: FLASH : PRINT 
"LA RAGNATELA": NORMAL 
3020 FOR T = 1 TO 6000: NEXT 
3030 HOME 

3040 VTAB 3; PRINT "Il gioco con 
siste nel raccogliere i vari 
tesori disseminati lungo il 
percorso facendo attenzio 
ne alle trappole e senza"; 

3050 PRINT "farsi prendere dal g 
uardiano dei tesori." 

3055 PRINT "Il tutto nel tempo c 
ancesso." 

3060 PRINT : PRINT : INVERSE : PRINT 
"SIMBOLI-SIGNIFICATO-CONSEGU 
ENZE": NORMAL 

3070 PRINT : PRINT " i tesori 
50 punti " 

3080 PRINT " @ trappole —4'‘'N. 

trapp.scattate" 

3090 PRINT " * TU" 

3100 PRINT " X Guardiano Se t 
i prende finisce la 
part.ita. " 

3110 INVERSE : PRINT "PER MUOVER 
TI PREMI :": NORMAL 
3120 PRINT : PRINT " S Su" 

3130 PRINT " X Giu" 

3140 PRINT " C Sinistra" 

3150 PRINT " V Destra" 

3160 PRINT : PRINT : PRINT "PER 
CONTINUARE PREMI <RETURN> " 

3170 INPUT Ai 

3180 RETURN 
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CENTRO 

COMMERCIALE 

AMERICANO 

Via Gattamelata 5, 20149 Milano 
Tel. (02) 46.96.451 Telex 330208 USIMC-I 


Finalmente insieme. 

Un'occasione da non perdere. 
Quest'anno a Bit Usa, 
la prestigiosa mostra di 
Home e Personal Computer americani, 
si affianca VIDEO GAME USA. 
Un'edizione ancor più ricca e 
interessante. Vi aspettiamo perciò 
numerosi, dal 22 al 26 Maggio, 
presso il 

Centro Commerciale Americano. 































Inglese 

Italiano 

Inglese 

Italiano 

1 END 

FINE 

2 FOR 

PER 

3 NEXT 

INCREMENTA 

4 DATA 

DATI 

5 INPUT # 

IN # 

6 INPUT 

RICHIEDI 

7 DIM 

DIM 

8 READ 

LEGGI 

9 LET 

SIA 

10 GOTO 

VA A 

11 RUN 

ESEGUI 

12 IF 

SE 

13 RESTORE 

RILEGGI 

14 GOSUB 

CHIAMA 

15 RETURN 

RITORNA 

16 REM 

* 

17 STOP 

ALT 

18 ON 

SECONDO 

19 WAIT 


20 LOAD 

CARICA 

21 SAVE 

REG 

22 VERIFY 

VER 

23 DEF 

DEF 

24 POKE 

PONI 

25 PRINT# 

P# 

26 PRINT 

SCRIVI 

27 CONT 


28 LIST 

LISTA 

29 CLR 

PUL 

30 CMD 

COM 

31 SYS 

LM 

32 OPEN 

APRI 

33 CLOSE 

CHIUDI 

34 GET 

PRENDI 

35 NEW 

CANC 

36 TAB( 

TAB( 

37 TO 

FINO 

38 FN 

FN 

39 SPC( 

SPZ( 

40 THEN 

ALLORA 

41 NOT 


42 STEP 

PASSO 

43 + 

+ 

44 - 

- 

45 ★ 

★ 

46 / 

/ 

47 t 

r 

48 AND 

E # 

49 OR 

0 # 

50 > 

> 

51 = 

= 

52 < 

< 

53 SGN 


54 INT 

INT 

55 ABS 

A SS 

56 USR 


57 FRE 

MEM 

58 POS 

PC 

59 SQR 

RAD 

60 RND 

CAS 

61 LOG 

LOG 

62 EXP 


63 COS 

COS 

64 SIN 

SEN 

65 TAN 

TAN 

66 ATN 

AT 

67 PEEK 

CONT 

68 LEN 

LUN 

69 STR$ 

STRINGA 

70 VAL 

VAL 

71 ASC 

CODICE 

72 CHR$ 

CAR 

73 LEFT$ 

S% 

74 RIGHT $ 

D$ 

75 MID$ 

M $ 

76 GO 



Tabella 1. I comandi BASIC. 


Sfruttiamo 
in modo originale 
alcune caratteristiche 
del Commodore 


di Alessandro Guida 


Q uesto articolo e i program¬ 
mi in esso contenuti, per¬ 
mettono l’implementazio- 
ne del BASIC in italiano. Quindi, 
niente più GOTO, READ, ecc., ma i 
più familiari VA A, LEGGI, e così 
via. Ma, anche se si conosce alla 
perfezione l’inglese, questo articolo 
resta una buona occasione per vede¬ 
re come il computer gestisce i vari 
messaggi e le parole chiave, e le pos¬ 
sibilità offerte dai banchi di memo¬ 
ria selezionabili del C 64. 


Modifiche al S.O. 
e all’interprete BASIC 

Per poter implementare i coman¬ 
di e i vari messaggi in italiano sarà 
necessario apportare delle modifi¬ 
che sia al sistema operativo che al¬ 
l’interprete BASIC. Su altri compu¬ 
ter ciò comporta la completa riscrit¬ 
tura del BASIC e del S.O., per il 64, 
invece, questo non accade. 
Possiamo, infatti, sfruttare la possi¬ 
bilità di escludere la ROM nella qua¬ 
le risiede il firmware e selezionare al 
suo posto della RAM. Per saperne di 
più su questa caratteristica del 64 
leggete la rubrica “I segreti del C 
64” su questo stesso numero. 

Quello che faremo sarà, perciò, di 
ricopiare l’interprete e il sistema 
operativo dalla ROM alla RAM, e 


quindi vi apporteremo le modifiche 
richieste. 

Per comodità, divideremo l’argo¬ 
mento in tre parti: 1 - I comandi 
BASIC; 2 - Gli errori; 3 -1 messaggi 
del sistema operativo. 

I primi due punti interessano l’in¬ 
terprete BASIC, il terzo le routine di 
Kernal (S.O.). 


I comandi BASIC 

I comandi BASIC sono raggrup¬ 
pati in una tabella che parte dall’in¬ 
dirizzo $A09E (41108) ed occupa 
esattamente 256 byte. 

In questa tabella sono riportati tutti 
i comandi, sotto forma di caratteri 
ASCII. Per dividere una parola dal- 
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l’altra, l’ultimo carattere è aumenta¬ 
to di 128 (ha il bit 7 alto). 

Quando viene digitata da tastiera 
una linea o un comando l’interprete 
BASIC consulta questa tabella con 
metodo sequenziale. Legge, cioè, 
tutte le parole, in essa contenute, 
fino a trovare quella interessata. 
Nell’eseguire questa operazione vie¬ 
ne tenuto il conto delle parole lette, 
in modo da avere il numero d’ordine 
del comando. Se la parola non viene 
trovata in elenco si ha SYNTAX 
ERROR. 

Il numero d’ordine viene usato poi 
come indice per accedere ad un’altra 
tabella che contiene gli indirizzi del¬ 
le routine che eseguono i rispettivi 
comandi. 

Questo porta ad alcune limitazioni 
nella modifica della tabella delle pa¬ 
role chiavi: 

1) Le parole che sostituiremo devo¬ 
no mantenere lo stesso ordine di 
quelle in inglese. 

2) Bisogna che tutte le parole siano 
presenti. 

In tabella 1 sono riportate tutte le 
parole chiave del BASIC e la loro 
traduzione. È possibile usare termi¬ 
ni diversi da quelli raffigurati, ma è 
necessario tenere presenti alcune al¬ 
tre restrizioni. 

La più pesante è quella che ci obbli¬ 
ga a contenere tutte le parole chiave 
nei 256 byte occupati dalle originali. 
Questo perché l'accesso alla tabella 
viene effettuato dal microprocesso¬ 
re per mezzo di un registro indice da 
8 bit, capace di indirizzare, quindi, 
al massimo 256 locazioni. 

Poiché, però, l’italiano non è sin¬ 
tetico come l’inglese è stato necessa¬ 
rio sacrificare alcuni comandi rara¬ 
mente utilizzati (CONT, WAIT, 
NOT, SGN, USR e EXP), ed abbre¬ 
viarne altri, come PEEK tradotto 
CONTENUTO e abbreviato in 
CONT. 


2 REM##*###*#**#****#**###*#**##*#**##** 


3 REM* * 

4 REM# <BASIT> # 

5 REM# * 

6 REM# KEYWORD BASIC IN ITALIANO # 

7 REM* * 


8 REM*********************************** 

9 REM-COPIA INTERPRETE BASIC- 

10 FORI-40960TO49131 :POKEI,PEEK CI >■ NbXT 

12 REM- 

15 S=41117 ; N-0 

20 READAC : I FA*-'■###•• THEN1100 

30 N-N+LEN<A*> : IFN>253THENPRINT KEYWORD TROPPO LUNGHE" END 
40 IFLENCA*>-1THENI«1:GOTO60 

50 F0RI«1TOLEN<A*>-1: PQKES+I..ASCCMID*<A*,I,1/ ■ NEXT 
60 S-S+I 

100 POKES,ASC<RIOHT*<A*,1>>+Ì28 
110 GOTO20 

1000 DATAFINE,PER INCREMENT A,DAT I IN#,RICHIEDI,D1 M, LEGOI,SI A A 1 A h 
1010 DATAESEGUI • SE;RILEGGI > CHI AMA,RITORNA •ALT, SECONDO •£• CARICA 
1020 BATAFEG, VER , DEF, PC»N I, P#, SCR I V I / £, LI STA 

1030 DRTAPUL,COM,LM,APRI,CHIUDI,PRENDI-CRNC- THBC /FINO,FN, SPZ 
1040 DAT A ALLORA ■ £ / PASSO * + .• -,* t. E#, 0#, £, IHT.ASC L 

1050 DATAMEM,PC/RAD # Cft$> LOG,£, COS *SEN.TAN. AT 
1060 DATACONT, LUN,STR INGA , VAL,COD I CE y C AR, S# D* M*.##* 

1100 P0KES+1.0 REM FINE TABELLA 
1110 POKE 1.. 54: REM SELEZIONA RAM 


Listato 1. Programma per attivare il BASIC con comandi in italiano. 


10 SCRIVI ’TWTABC 18>"BASITW" 

15 SCRIVI CARC142) 

20 PER 1-1 FINO 6 
30 LEGGI A* 

40 PER J=1 FINO LUN'A») 

50 SCRIVI M*(.A», J. 1 >; 

55 PER D=0 FINO 200 : INCREMENTA LI 
60 INCREMENTR J 
70 SCRIVI•INCREMENTR I 
80 LISTA 
90 FINE . 

100 URTI "QUESTO PROGRAMMA IMPLEMENTA SUL TUO" 
110 ORTI "C64 IL BASIC IN ITALIANO!" 

120 DAT 1 11 IR I CORBA CHE " 

130 DATI"W3T0P+REST0RE DISATTIVA BASIT" 

140 DATI"*F0KE1.54 ATTIVA BASIT" 

150 DAT I " WSBUON LAVORO !!!!'■ 


Listato la. Esempio di programma scritto in BASIT. 


Alle parole soppresse è stato asse¬ 
gnato il carattere “&”, perché, come 
abbiamo visto, è necessario mante¬ 
nere il posto occupato nella tabella. 

Le parole AND e OR che andava¬ 
no tradotte con E e O hanno subito 
l’aggiunta del carattere per¬ 

ché, diversamente, avrebbero inibi¬ 
to l’uso di qualsiasi variabile conte¬ 
nente uno di questi due caratteri. 

E, infatti, sempre valida la regola 
qhe il nome dato alle variabili, in un 
programma, non deve contenere al¬ 
cuna parola chiave. Cioè, così come 
con il BASIC in inglese è proibito 
usare, ad esempio, la variabile LET¬ 
TO così nel nuovo BASIC non è 
possibile usare A SIA o PERSO. 


Si può notare che l’elenco delle 
parole chiave inglesi termina con 
GO che in effetti non viene utilizza¬ 
ta. Si possono, perciò, utilizzare i 
suoi due byte, perché essendo l’ulti¬ 
ma della serie non pregiudica il cal¬ 
colo del numero d’ordine degli altri 
comandi. 

Il programma del listato 1 “BA¬ 
SIT”, implementa il BASIC in ita¬ 
liano sul vostro computer. 

E possibile in ogni momento tornare 
al BASIC tradizionale premendo 
STOP + RESTORE. Per riabilitare 
il BASIT dare POKE1, 54. 

Il listato la riporta un esempio di 
programma scritto in BASIT. 
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ONE HUNDRED STEPS TO LONDON 


COflCOfcO 

per tutti i SINCLÀIRisti 



COME FUNZIONA IL CONCORSO? 

Prima di entrare nel dettaglio del Regolamento che per altro consigliamo di 
leggere attentamente, descriviamo il meccanismo di questo strabiliante con¬ 
corso, organizzato dalia J.C.E. 

Ci preme innanzitutto chiarire che la Giuria è il pubblico, ossia i lettori di 
Sperimentare con l’Elettronica e il Computer, e ciò sottolinea la filosofia di 
dialogo e di fiducia, in cui la redazione non si pone, come in altri casi spesso 
avviene, nella presuntuosa posizione di infallibilità! 

Ogni mese a partire dal numero di Giugno 1984, la rivista pubblicherà i quat¬ 
tro migliori programmi pervenuti in redazione, e giudicati dalla nostra com¬ 
missione tecnica. I lettori troveranno quindi i listati di questi quattro program¬ 
mi ed un tagliando sul quale scriveranno il titolo dei programma che sarà 
parso più meritevole, per qualsiasi motivo. 

Fra tutti i lettori che avranno inviato il tagliando sarà estratto, ogni mese, un 
computer Sinclair Spectrum 16 KM! 

Questa procedura si ripeterà per sei mesi, quindi sui numeri di Giugno, 
Luglio/Agosto, Settembre, Ottobre, Novembre e Dicembre, quindi ogni mese 
saranno pubblicati quattro programmi, il tagliando da spedire e fra i tagliandi 
sarà estratto uno Spectrum 16 K. 

Alla fine di questa prima fase usciranno, dunque sei programmi classificati al 
primo posto in ciascuna delle sei “batterie”. 

Noi li sottoporremo al giudizio dei lettori, pubblicando sul numero di Marzo 
1985 un nuovo tagliando sul quale andranno indicati, in ordine di preferenza, 
tutti i sei programmi. I primi tre saranno premiati, e fra i lettori sarà estratto di 
nuovo uno Spectrum 16 K. 

Mica male, eh, che ne dite? 

il regolamento è riportato sulla rivista “Sperimentare con l'Elettronica e il 
Computer”. 


1° CONCORSO 
SINCLUB 1984-85 

I Sinclair Club e i Sinclairisti sono spes¬ 
so vere e proprie fonti di idee per il mi¬ 
glior impiego del nostro beneamato 
spectrum; è un peccato che la maggior 
parte di queste idee restino nel casset¬ 
to, o nel migliore dei casi vengano resi 
noti alla ristretta cerchia degli amici. 
Uno degli scopi del Sinclub è proprio 
quello di dare le ali a chi le merita. Da 
qui l'idea di un concorso a premi, orga¬ 
nizzato dalla J.C.E., aperto a tutti, il 
concorso inizierà il 1° Aprile e termi¬ 
nerà II 31 Dicembre 1984; tutti 
potranno inviare alla redazione di 
Sperimentare con l'Elettronica e 
il Computer entro il suddetto perio¬ 
do loro programmi più interessanti ed 
originali. 

10) I programmi devono essere me¬ 
morizzati su cassetta e devono esse¬ 
re spediti alla redazione di Sperimen¬ 
tare con l’Elettronica e il Computer al 
seguente indirizzo: 

J.C.E. - CONCORSO SINCLUB 
VIA DEI LAVORATORI, 124 
20092 CINISELLO BALSAMO (MI) 
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I messaggi di errore in BASIC 


La gestione dei messaggi di errore 
e non, da parte dell’interprete è leg¬ 
germente più complessa. Esistono, 
infatti, due tabelle di cui una contie¬ 
ne tutti i messaggi di errore e l’altra 
gli indirizzi di partenza di tali mes¬ 
saggi. La prima è posta in memoria 
a partire dalla locazione $A19E fino 
alla $A327 e contiene i messaggi, 
riportati in tabella 2, da TOO 
MANY FILES a LOAD. La secon¬ 
da, contenente gli indirizzi di inizio, 


incluso quello di BREAK, parte da 
$A328 e termina in $A363. La routi¬ 
ne di gestione errori, il cui indirizzo 
di partenza è contenuto nel vettore 
$0300, accede proprio a quest’ulti- 
ma tabella per mezzo del registro X 
del 6502 usato come indice. 

Perciò i codici degli errori, da 0 a 29, 
devono mantenere lo stesso ordine 
originale, mentre il testo può essere 
messo in un punto qualsiasi della 
memoria purché si sia aggiornato il 
corrispondente elemento della ta¬ 
bella indirizzi. 


I vari messaggi sono separati con lo 
stesso sistema visto per le parole 
chiavi. 

Sfruttando questa possibilità e te¬ 
nendo presente che concentrare il 
testo italiano nello stesso spazio oc¬ 
cupato dall’inglese era impossibile, 
si è preferito modificare la tabella 
codice-indirizzo e memorizzare i te¬ 
sti a partire da $C000 (49152). Con il 
programma del listato 2 potrete mo¬ 
dificare a piacere i testi degli errori 
poiché il programma provvede a 
calcolare la lunghezza delle varie 


Inglese 

Italiano 

1 TOO MANY FILES 

ERRORE: TROPPI FILE 

2 FILE OPEN 

ERRORE: FILE GIÀ' APERTO 

3 FILE NOT OPEN 

ERRORE: FILE CHIUSO 

4 FILE NOT FOUND 

ERRORE: NON TROVO IL FILE 

5 DEVICE NOT PRESENT 

ERRORE: PERIFERICA ASSENTE 

6 NOT INPUT FILE 

ERRORE: FILE DI USCITA DATI 

7 NOT OUTPUT FILE 

ERRORE: FILE DI INGRESSO DATI 

8 MISSING FILE NAME 

ERRORE: FILE SENZA NOME 

9 ILLEGAL DEVICE NUMBER 

ERRORE: NUMERO PERIFERICA ILLEGALE 

10 NEXT WITHOUT FOR 

ERRORE: INCREMENTO SENZA CICLO 

11 SYNTAX 

ERRORE DI SINTASSI 

12 RETURN WITHOUT GOSUB 

ERRORE: RITORNO SENZA CHIAMATA 

13 OUT OF DATA 

ERRORE: TERMINATI I DATI 

14 ILLEGAL QUANTITY 

ERRORE PER QUANTITÀ' ILLEGALE 

15 OVERFLOW 

ERRORE: RISULTATO TROPPO GRANDE 

16 OUT OF MEMORY 

ERRORE: MEMORIA ESAURITA 

17 UNDEF’D STATMENT 

ERRORE: NUMERO DI LINEA SCONOSCIUTO 

18 BAD SUBSCRIPT 

ERRORE: VETTORE TROPPO PICCOLO 

19 REDIM’D ARRAY 

ERRORE: VETTORE GIÀ' DEFINITO 

20 DIVISIO BY ZERO 

ERRORE: DIVISIONE PER ZERO 

21 ILLEGAL DIRECT 

ERRORE: ISTRUZIONE NON DIRETTA 

22 TYPE MISMATCH 

ERRORE: VARIABILE DI TIPO ERRATO 

23 STRING TOO LONG 

ERRORE: STRINGA TROPPO LUNGA 

24 FILE DATA 

ERRORE NEI DATI DI UN FILE 

25 FORMULA TOO COMPLEX 

ERRORE: FORMULA TROPPO COMPLESSA 

26 CAN’T CONTINUE 

MI SPI ACE, MA NON POSSO CONTINUARE 

27 UNDEF’D FUNCTION 

ERRORE: FUNZIONE NON DEFINITA 

28 VERIFY 

ERRORE NELLA VERIFICA 

29 LOAD 

ERRORE IN LETTURA 

30 BREAK 

SONO STATO INTERROTTO 

OK (CR) 

OK (CR) 

ERROR 


IN 

IN 

(CR) (LF) READY (CR) (LF) 

(CR) PRONTO (CR) (LF) 

(CR) (LF) BREAK 

(CR) (LF) ALT 

? EXTRA IGNORED (CR) 

? TROPPI DATI 

? REDO FROM START 

NON VA BENE! 


Tabella 2. / messaggi BASIC. Nota: (CR) — Carriage return; (LF) = Line Feed. 
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J 900 REM********##*#**#**#***#****#*##* 


1910 REM# # 
1920 REM# <ERRIT> # 
1930 REM# # 
1940 REM* MESSAGGI ERRORE IN ITALIANO * 
1950 REM* # 


1960 REM******************************* 

197© REM-COPIA INTERPRETE BASIC- 

19S0 FORI=40960T049151 POKEI,PEEK<I>:NEXT 

1990 REM- 

1995 REM-COPIA MESSAGGI ERRORE- 

2800 T£=41763 : IN=49152 

2010 REABA* IFA*="**#"THEN3500 

2028 HB»INT<IN/256>:LB=IN-HB*256■PQKETB,LB : POKETB+1,HB 
20J0 FORI = 1TOLEN<A* > -1 =POKEIN-1 +1,ASC < MID* <A*,1,1> >:NEXT 
2840 POKEIN+I-i,ASC<RIGHT*<A*,1)>+128 
2050 IN=IN+LEN<A*>•TB=TB+2:GOTO2010 

3000 DATA"ERRORE : TROPPI FILE", "ERRORE FILE GIÀ' APERTO'* 

3010 DATA"ERRORE : FILE CHIUSO","NON TROVO IL FILE' 

3020 DATA"PERIFERICA ASSENTE","ERRORE FILE DI USCITA DATI" 

3030 DATA"ERRORE : FILE DI INGRESSO DATI", "ERRORE : FILE SENZA NOME" 

3040 DATA-'ERRORE: NUMERO PERIFERICA ILLEGALE".. "ERRORE INCREMENTO SENZA PER" 
3050 DHTA-ERRORC DI SINTASSI", 'ERRORE : RITORNO SENZA CHIAMATA" 

3060 DATA"ERRORE: TERMINATI I DATI","ERRORE PER QUANTITÀ' ILLEGALE" 

3070 DATA"ERRORE : RISULTATO TROPPO GRANDE","MEMORIA ESAURITA" 

3080 DATA"ERRORE: NUMERO DI LINEA SCONOSCIUTO","ERRORE : VETTURE NON DEFINITO" 
3090 DATA"ERRORE: VETTORE GIR' DEFINITO","ERRORE : DIVISIONE PER ZERO" 

3100 DATA"ERRORE : ISTRUZIONE NON DIRETTA 1 ,"ERRORE : VARIABILE DI TIPO ERRATO" 
3110 DATA"ERRORE : STRINGA TROPPO LUNGA","ERRORE NEI DATI DI UN FILE" 

3120 DATA"ERRORE ; FORMULA TROPPO COMPLESSA","MI SPIACE, MA NON POSSO CONTINUARE' 
3130 DATA"ERRORE: FUNZIONE NON DEFINITA","ERRORE NELLA VERIFICA" 

3140 DATA"ERRORE IN LETTURA","SONO STATO INTERROTTO",*#* 

3490 REM-CANCELLA 'ERRUR'- 

3500 PQKE41834,O 

3505 REM-RIMPIAZZA ALTRI MESSAGGI — 

35i0 FORI = 1TU6:P0KE41847+1,ASC MID*<"PRONTO *M , 1>):NEXT 
3520 rORI = ÌT05 : P0KE41058+1 ,ASC<MID*<"AlT ",I, X >>:NEXT 
4000 REABAS:FORI = 1TOLEN<A*>:P0KE44203+1,ASC<MID* <A* ,1,1>>:NEXT 
4010 P0KE44283+I,13 :P0KE44283+I + 1,0 

4020 READA*•FORI = 1TOLEN<A*>:P0KE44299+1,ASC<MID*<A*,1,1>>’NEXT 
4830 P0KE44239+1,13:P0KE44299+1+1,0 
4640 DATA"? TROPPI DATI","NON VA BENE !" 

4050 POKEi,54 REM SELEZIONA RAM 


Listato 2. Programma “ERRIT' per implementare i messaggi di errore in 
italiano sul C 64. 


Inglese 

Italiano 

1 I/O ERROR # 

ERRORE I/O # 

2 SEARCHING 

CERCO: 

3 FOR 


4 PRESS PLAY ON TAPE 

PREMERE TASTO PIA Y 

5 PRESS RECORD AND PLAY 


ON TAPE 

PREMERE TASTI RECORD E PLA Y 

6 LOADING 

CARICO 

7 SAVING 

SALVO 

8 VERIFYING 

VERIFICO 

9 FOUND 

TROVATO 

10 OK 

OK 


Tabella 3. Messaggi del sistema operativo. 
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frasi e ad aggiornare di conseguenza 
la tabella indirizzi. 

Ma vediamo un attimo cosa acca¬ 
de al verificarsi di un errore: 

1) l’interprete BASIC mette nel regi¬ 
stro X del microprocessore il codice 
dell’errore, e salta alla routine ge¬ 
stione errori; 

2) utilizzando il registro X come in¬ 
dice viene letto l’indirizzo di parten¬ 
za del messaggio selezionato. 
Questo viene quindi stampato un 
carattere per volta finché non viene 
incontrato l’ultimo: 

3) viene stampata la parola “ER- 
ROR” prelevata in un’altra piccola 
tabella; 

4) se il computer si trova all’interno 
di un programma stampa “IN” se¬ 
guito dal numero di linea. Altrimen¬ 
ti salta quest’ultima fase. 

Naturalmente, pur traducendo 
tutto in italiano sarebbe ugualmente 
brutto leggere, ad esempio: 
“STRINGA TROPPO LUNGA 
ERRORE”. 

Perciò i vari messaggi sono stati 
tradotti in maniera completa (vedi 
tabella 2) comprendendo anche la 
parola ERRORE che è stata invece 
cancellata nella versione inglese in 
modo che non venisse ripetuta al 
termine della frase. 

La parola “ERROR” è contenuta 
in una terza tabella che comprende, 
anche, i messaggi da OK a BREAK, 
ed è posta in memoria da SA364 a 
$A389. L’accesso a questi messaggi 
avviene in modo diretto, ossia il 
computer si aspetta sempre di tro¬ 
varli allo stesso posto per cui è ne¬ 
cessario sostituire al testo inglese 
quello italiano senza eccedere il nu¬ 
mero di caratteri previsto per ognuno 
dei cinque messaggi. 

Questi testi sono separati uno dal¬ 
l’altro dal carattere $00. 

Come già detto “ERROR” è com¬ 
pletamente eliminato. 

Per terminare, ci sono altri due 
messaggi a partire da $ACFC relati¬ 
vi all’istruzione di INPUT. Anche 
questi devono essere rimpiazzati “in 
situ” come gli ultimi messaggi visti. 
Il programma del listato 2 può esse¬ 


re utilizzato da solo o insieme al 
programma 1. In questo secondo ca¬ 
so le linee 1980 e 4050 devono essere 
omesse. 


I messaggi del sistema operativo 

Anche il sistema operativo possie¬ 


de un certo numero di messaggi, ri¬ 
guardanti le operazioni di input/ 
output, che possono essere tradotti. 
L’elenco con la traduzione proposta 
è in tabella 3. 

La tabella originale è all’indirizzo 
$F0BD. Anche in questo caso, l’ac¬ 
cesso, da parte del computer ai testi, 
avviene in modo diretto puntando 
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9900 REM******************************* 


9910 REM# * 
9920 REM# <KERHIT> # 
9930 REM# # 
9940 REM* MESSAGGI S.O. IN ITALIANO * 
9950 REM# # 


9960 REM**#**##*#*#####*#*##**##**##*## 

9970 REM-COPIA INTERPRETE BASIC- 

99S0 FORI-40960TO49151 : POKEI . P£EK<I > : NEXT 

9990 REM-COPIA SISTEMA OPERATIVO- 

100O0 FORI«57344T065535 : POKEI <PEEKCI ) 1 NEXT 

10002 REM-MODIFICA MESSAGGI I/O- 

10005 FORI=1T09 
10010 READ A.. Af 

10020 F0RJ=1T0LEN<A*>-1 POKEA+J, ASC<MID*(.A* ; J, 1 > > : NEXT J 

10030 POKEA+J, ASC <. RIGHT* < AT , 1)> +123'NEXTI 

10100 DATASI628,"ERRORE I/O 4",61641,"CERCO ",61651," 

10110 DATASI656,"PREMERE TASTO PLAV",61674,"PREMERE TASTI RECORD E PLAV" 
10120 DATASI 702,"CARICO ", 61710,"SALVO " 

10130 DATASI 718,"VERIFICO ", 61727,"TROVATO" 

10140 POKE1,53 REM SELEZIONA RAM 


messaggi di I/O in italiano. 


Figura 1. Esempio di utilizzo dei co¬ 
mandi e dei messaggi di errore in ita¬ 
liano. 

Da notare che i messaggi del sistema 
operativo sono ancora in inglese. 

direttamente al messaggio da stam¬ 
pare. Perciò nella sostituzione è im¬ 
portante che i nuovi messaggi non 
siano più lunghi degli originali. 

Poiché, nel selezionare la parte al¬ 
ta della RAM, ($E000 - $FFFF) cor¬ 
rispondente al sistema operativo, 
viene automaticamente attivata an¬ 
che la RAM corrispondente all’in¬ 
terprete BASIC ($A000 - $BFFF), è 
necessario ricopiare tale zona di me¬ 
moria prima di attivare la RAM. 

Naturalmente, se il programma 
“KERNIT” riportato nel listato 3, è 
utilizzato insieme agli altri visti pri¬ 
ma la linea 9980 va tolta. 


PRONTO 


CARICA 

"ESEMPIO",8 

CERCO: ESEMPIO 

?N0N TROVO IL FILE 

PRONTO 

CARICA 

“ESEMPIO" 

PREMERE 

CERCO: 

CARICO 

PRONTO 

TASTO PLAY 
ESEMPIO 

ESEGUI 

1000 


Figura 2. Esempio di utilizzo contem¬ 
poraneo di “BAS1T’, “ERRIT’ e 
“KERNIT’. In questo caso anche i 
messaggi provenienti dal sistema ope¬ 
rativo “Kernal” sono in italiano. 

Le figure 1 e 2 riportano due esempi 
di utilizzo dei 3 programmi. 


Conclusioni 

Questo visto è solo un esempio di 
quanto è possibile fare sfruttando la 
selezione dei banchi di memoria da 
$A000 in su. 

In futuro si vedranno altri esempi, 
tutti molto interessanti, di manipo¬ 
lazione dell’interprete BASIC e del 
sistema operativo. ■ 


Listato 3. Programma per attivare i 


PRONTO 

CARICA "KERNIT",8 

SEARCHING FOR KERNIT 

LOADING 

PRONTO 

ESEGUI 

ERRORE DI SINTASSI IN 10010 
LISTA 10010 

10010 LEGGI A ; A $ 
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BIT SHOP PRIMAVERA 

La più grande catena 
di computer in Europa. 

AGRATE BRIANZA Via G. Matteotti, 99 
ALBA Via Paruzza, 2 
ALESSANDRIA Via Savonarola, 13 
ANCONA Via De Gasperi, 40 
AOSTA Av. Conseil Des Commis, 16 

BELLANO Via Martiri della Libertà, 14 

BASSANO DEL GRAPPA Via Jacopo Da Ponte, 51 

BERGAMO Via S. F. D’Assisi, 5 

BIELLA Via Italia, 50A 

BOLOGNA Via Brugnoli, 1 

BRESCIA Via B. Croce, 11/13/15 

BUSTO ARSIZIO Via Gavinana, 17 

CAGLIARI Via Zagabria, 47 
CALTANISSETTA Via R. Settimo, 10 
CAMPOBASSO Via Mons. II Bologna, 10 
CATANIA Via Muscatello, 6 
CATANZARO Via XX Settembre, 62 A/B/C 
CESANO MADERNO Via Ferrini, 6 
CESENA Via F.lli Spazzoli, 239 
C1NISELLO BALSAMO V.le Matteotti, 66 
COLICO P.za Cavour, 24 
COMO Via L. Sacco, 3 
CONEGLIANO V.le Italia, 128 
CREMA Via IV Novembre, 56/58 
CUNEO C.so Nizza, 16 

EMPOLI Via Masini, 32 

FAVRIA CANAVESE C.so G. Matteotti, 13 
FIRENZE Via G. Milanesi, 28/30 
FIRENZE Via Centostelle, 5/B 
FORLl P.zza Melozzo Degli Ambrogi, 6 

GALLARATE Via A. Da Brescia, 2 
GENOVA Via Domenico Fiasella, 51/R 
GENOVA C.so Gastaldi, 77/R 
GENOVA-SESTRI Via Chiaravagna, 10/R 
GENOVA-SESTRI Via Ciro Menotti, I36/R 

IMPERIA Via Delbecchi, 32 

LATINA Via E. Toti (Galleria Cisa) 

L’AQUILA Via Strinella, 20/A 
LA SPEZIA Via Lunigiana, 481 
LECCO Via L. Da Vinci, 7 
LEGNANO C.so Garibaldi, 82 
LIVORNO Via Paoli, 32 
LODI V.le Rimembranze, 36/B 
LUCCA Via S. Concordio, 160 
LUGO (RA) Via Magnapassi, 26 

MACERATA Via Spalato, 126 
MANTOVA Via Cavour, 69 
MESSINA Via Del Vespro, 71 
MILANO Via Altaguardia, 2 
MILANO Via G. Cantoni, 7 
MILANO Via E. Petrella, 6 
MILANO Galleria Manzoni, 40 
MIRANO-VENEZIA Via Gramsci, 40/54 
MODENA Via Fonteraso, 18 
MONZA Via Azzone Visconti, 39 
MORBEGNO Via Fabani, 31 

NAPOLI Via Luigia SanFelicc, 7/A 
NAPOLI C.so Vittorio Emanuele, 54 
NAPOLI Via Luca Giordano, 40/42 
NOVARA Via Perazzi, 23/B 

PADOVA Via Fistomba, 8 (Stanga) 

PADOVA Via Piovose, 37 
PALERMO Via Libertà, 191 
PALERMO Via Notarbartolo, 23 B/C 
PARMA Via Imbriani, 41 
PAVIA Via C. Battisti, 4/A 
PERUGIA Via R. D’Andreotto, 49/55 
PESCARA Via Conte di P\uvo, 134 
PESCARA Via Trieste, 73 
PIACENZA Via IV Novembre, 60 
PISA Via Emilia, 36 
PISA Via XXIV Maggio, 101 
PISTOIA V.le Adua, 350 
POMEZIA Via Roma, 39 
POTENZA Via G. Mazzini, 72 
POZZUOLI Via G.B. Pergolesi, 13 
PRATO Via E. Boni, 76/78 

RECCO Via B. Assereto, 78 
REGGIO CALABRIA Via S. Marco, 8/B 
RIMINI Via Benda, 75 
ROMA P.za San Donà di Piave, 14 
ROMA Via Cerreto Da Spoleto, 23 
ROMA Via G. Villani, 24-26 

S. DONÀ DI PIAVE P.zza Rizzo, 61 
SALERNO C.so Garibaldi, 56 
SANREMO Via S. Pietro Agosti, 54/56 
SASSUOLO P.zza Martiri Partigiani, 31 
SESTO CALENDE Via Matteotti, 38 
SENIGALLIA Via Maierini, 10 
SIRACUSA Viale Scala Greca, 339/9 
SONDRIO Via N. Sauro, 28 

TERMOLI Via Martiri della Resistenza, 88 
TORINO C.so Grosseto, 209 
TORINO Via Tripoli, 179 
TORINO Via Nizza, 91 
TRENTO Via Sighele, 7/1 
TREVISO Via IV Novembre, 13A 
TRIESTE Via Fabio Severo, 138 
TRIESTE Via Torrebianca, 18 
TRIESTE Via Paolo Reti, 6 

UDINE Via Tavagnacco, 89/91 

VARESE Via Carrobbio, 13 
VENEZIA Cannaregio, 5898 
VERCELLI Via 1 Dionisotti, 18 
VIAREGGIO Via A. Volta, 79 
VICENZA Via del Progresso, 7/9 
VIGEVANO C.so V. Emanuele, 82 
VOGHERA P.zza G. Carducci, 11 

COMPETENZA in COMPUTER 

















il tuo simzlaii”-Spectrum 
con le sue eccezionali periferiche ! 





ZXMICRODRIVE 

Amplia le possibilità dello 
ZX Spectrum in quei settori 
come la didattica e le 
piccole applicazioni 
gestionali, dove è necessaria 
una ricerca veloce delle 
Informazioni. 

Ogni cartuccia può 
contenere:- 
85 kbyte / 95 kbyte 


CARTRIDGE 

Per ZX Microdrive. 
Capacità: 

85 kbyte / 95 kbyte 
Confezione da 2 pezzi. 


La coppia 


ZX INTERFACE 2 

Permette di utilizzare le 
nuovissime ZX ROM, 
cartucce software e-il 
collegamento per 2 


joystick. 


ZX INTERFACE 1 

Indispensabile per il 
collegamento dello 
ZX Microdrive. 

Inoltre permette il 
collegamento fra lo 
ZX Spectrum e una ampia 
gamma di periferiche e di 
altri Sinclair in rete locale. 

COMPUTER 
ZX SPECTRÙM 

A colori, collegabile ad un 
televisore a colori o in b/n 
e ad un normale 
registratore a cassetta. 
32x24 caratteri. 

RAM di base: 16 k -48 k 
256x192 punti. 

8 colori - 2 luminosità. 




competenza 
in COMPUTER 

inclair 


I prezzi sono comprensivi di I.V.A. 
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GIOCARE IN BASIC 

Il gioco come metodo 
d'apprendimento del BASIC 
e dei microcomputer 
324 pag. L. 20.000 
Cod. 522A 

PROGRAMMI SCIENTIFICI 
IN PASCAL 

Per costruirsi una "libreria” 
di programmi in grado di 
risolvere i più frequenti 
problemi scientifici e 
ingegneristici 
384 pag. L. 25.000 
Cod. 554P 

DAL FORTRAN IV 
AL FORTRAN 77 

Per chi deve programmare 
a livello tecnico scientifico 
e per chi vuole 
approfondire le conoscenze 
del linguaggio 
266 pag. L. 18.000 
Cod. 517P 

IL BASIC DEL PET 
E DELL M20 

Un validissimo supporto e 
strumento di lavoro per 
chiunque voglia o debba 
imparare a programmare in 
BASIC con un Commodore 
o un Olivetti M20 
232 pag. L. 16.000 
Cod. 336D 

FORTH PER VIC 20 
E CBM 64 

Il libro spiega la 
programmazione in Forth: 
linguaggio che dopo 
essersi affermato in campo 
scientifico ed industriale, 
sta ora diffondendosi anche 
a livello di personal 
computer. 

156 pag. L. 11.000 
Cod. 527B 


Libri firmati JACKSON 


Il BASIC 
mQGRAMMlIpER TUTTI 

Mi 





t» 







La Biblioteca che fa testo 


IL BASIC PER TUTTI 

Per i neofiti una facile e 
immediata introduzione al 
linguaggio BASIC e al 
mondo dei calcolatori 
264 pag. L. 17.500 
Cod. 525A 

50 ESERCIZI IN BASIC 

Una raccolta completa e 
progressiva di esercizi 
matematici, gestionali, 
operativi, statistici, di svago 
208 pag. L. 13.000 
Cod. 521A 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Preuo totale 














□ Pagherò contrassegno al postino it prezzo indicato più L. 3000 per contributo fisso 
•pese di spedizione 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n. 11666203 a voi intestato 


! i Allego fotocopia di versamento 
su vaglia postale a voi intestato 



GRUPPO 

EDITORIALI 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divistone Libri 

Via Rosellini, 12 - 20124 Milano 


Cognome 


Cap 


Città 


Prov. 


Data 


Firma 


Spazio riservato alle Aziende. Si richiede remissione di fattura 

Partita I.V.A. LI_I_I_LI_LL_ I ! LI 


ORDINE 
MINIMO 
L. 50.000 













































serie temporali 


Lo Spectrum disegna 
gli istogrammi 

di Vittorio Riva 

A causa della turbolenza che 
ha caratterizzato l’am¬ 
biente economico negli ul¬ 
timi anni, l’analisi dei dati storici è 
diventata strumento di verifica e di 
previsione di fondamentale impor¬ 
tanza nella gestione aziendale. 

Per le aziende di piccole dimensioni 
il discorso assume un importanza 
ancora più rilevante poiché queste 
dispongono generalmente di margi¬ 
ni considerevolmente ridotti per far 
fronte ad eventuali errori derivanti 
da valutazioni approssimative ed in¬ 
terpretazioni arbitrarie dei dati di 
mercato. 

Fortunatamente il problema può es¬ 
sere risolto con un minimo impiego 
di capitale, infatti anche sistemi di 
piccole dimensioni, come lo Spec¬ 
trum, consentono di effettuare valu¬ 
tazioni matematiche accurate, con¬ 
tribuendo ad eliminare parte della 
casualità delle scelte. 

Quale professionista non si è mai 
posto il problema di tenere sotto 
controllo l’andamento (trend), per 
es., dei propri incassi e dei propri 
! costi? 

Ma anche per la vostra gestione 
domestica può risultare utile avere 
sotto controllo l’andamento delle 
spese, quindi il programma presen¬ 
tato, anche se apparentemente sem¬ 
bra destinato solo a persone con un 
grosso giro di affari, oppure a picco¬ 
le società, è invece utile a tutti i pun¬ 
tigliosi amanti dei bilanci personali. 
E se non sapete cosa sia un’isto- 
gramma? Beh, niente paura, provate 
il programma e non ne potrete avere 
un’idea più chiara. 


Il programma 

Il programma è stato elaborato 
sullo Spectrum Sinclair utilizzato in 
configurazione minima (16 Kbyte 
ovvero 8,6 Kbyte effettivamente di¬ 
sponibili). 

Il calcolatore non si limita al dise¬ 
gno dell’istogramma ma fornisce i 
dati principali per rendersi conto 
della situazione passata, presente e, 
con l’approssimazione consentita, 
anche della situazione futura. In- 
somma risponde pienamente alla 
domanda: “Qual’è la situazione nel¬ 
l’andamento dei dati riguardo ad 
una determinata classe di valori?”. 
In Input vengono richiesti: 

• titolo dell’analisi (esempio vendi¬ 
te); 

• primo periodo (è l’anno zero: da 
cui si comincia a possedere dati. È il 
calcolatore stesso che precisa come 
immettere il dato e ne controlla la 
correttezza; 

• sottoperiodi (t = 1 ... n. Ancora 
una volta è il calcolatore a precisare 
la richiesta); 

• dati del singolo periodo (0 < V < 
100000 in qualunque forma e ap¬ 
prossimazione. Controllati dal cal¬ 
colatore). 

L’asse delle ascisse deH’istogramma 
è diviso in quattro periodi. Ogni pe¬ 
riodo è formato da 12 sottoperiodi 
evidenziati a gruppi di tre. È chiaro 
che la divisione più naturale, a que¬ 
sto punto, è proprio quella più fre¬ 
quente che usa l’anno come periodo 
e il mese come sottoperiodo (per un 
totale di 48 mesi). Tuttavia con op¬ 
portune modifiche e raggruppamen¬ 
ti di dati la scala temporale, di per sé 
rigida, risulta utilizzabile molto più 
flessibilmente. La scelta rigida stata 
imposta dalla ridotta disponibilità 
di memoria. 

In output vengono forniti: 


• massimo e minimo (dei dati inseri¬ 
ti); 

• valore cumulato (I.V.); 

• media dati 


n. sottop. 

• S.Q.M. (scarto quadratico medio); 

• retta del trend (metodo dei minimi 
quadrati); 

• coeff. di regressione lineare (misu¬ 
ra la bontà di un’approssimazione 
lineare, r = 1 retta r = 0 pessima 
approssimativamente); 

• incrementi mensili % (mese “n” 
rispetto a mese “n - 1”). 

Successivamente, una volta dise¬ 
gnato ristogramma sul cui asse sono 
riportati i valori approssimati per 
difetto alla terza cifra decimale è 
consentito un colloquio interattivo 
con il calcolatore per richiedere il 
valore esatto di un dato immesso, 
nel caso fosse di difficile interpreta¬ 
zione sull’asse delle ordinate. È an¬ 
che possibile tornare alla stampa dei 
dati statistici. In più se i dati sono 
linearizzabili con buona approssi¬ 
mazione (r > 0.75), il programma 
fornisce su richiesta le proiezioni per 
i tre mesi successivi all’ultimo mese 
in cui si dispone dei dati. La proie¬ 
zione non può essere la previsione 
esatta del futuro ma è tanto più vici¬ 
na al vero quanto più l’andamento 
dei dati è approssimabile con una 
retta e non ci sono brusche variazio¬ 
ni di mercato. Per questo sarebbe 
inutile andare oltre i tre mesi con 
una simile proiezione. 

Ma è probabile che sia già molto 
in considerazione del fatto che il no¬ 
stro obiettivo non è prevedere il fu¬ 
turo, ma di valutare l’andamento 
dei dati in nostro possesso. Esami¬ 
nando il trend dei dati è possibile 
individuare le modifiche da inserire 
nelle politiche e strategie, per ade- 
I guarle agli obiettivi prestabiliti. Il 
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tempo massimo di elaborazione per 
48 dati è di circa 10 sec.. Il program¬ 
ma è protetto contro possibili (ma 
non clamorosi) errori di battitura 
nella fase di input, infatti si ferma e 
attende la correzione oppure rispon¬ 
de coerentemente ogni qualvolta il 
dato inserito non è compatibile con 
l’input richiesto. 

Alla linea 1671 viene richiesto, pri¬ 
ma di uscire definitivamente dal 
programma, se si desidera copia su 
cassetta dell’istogramma disegnato. 
In caso di risposta affermativa viene 
eseguita copia del video alla linea 
3005 attraverso l’istruzione SAVE 
“nome” SCREENS. L’utente può 
stabilire con quale nome archiviare 
il proprio istogramma. 

L’immagine così memorizzata può 
essere richiamata in qualunque mo¬ 
mento con l’istruzione LOAD “no¬ 
me” SCREENS. 

L’istruzione SCREENS equivale al¬ 
la CODE 16384, 6912 ed è in grado 


di ridisegnare sul video l’istogram- 
ma preregistrato. 

Questo meccanismo consente di 
creare un archivio utilissimo per 
qualunque tipo di confronto con si¬ 
tuazioni future. Per valutare il pre¬ 
sente è di fondamentale importanza 
mantenere buona memoria del pas¬ 
sato! 

Il programma si articola in 6 se¬ 
zioni principali: 

• input (passi 20 4- 700); 

• dati statistici (passi 940 4 1095); 

• disegno assi (passi 1095 4 1281); 

• disegno istogrammi (passi 1410 4 
1669); 

• dialogo interattivo (passi 1669 4 
1692); 

• retta del trend nella forma V = a 0 1 
+ ai (passi 1800 4 2034). 

Un ultimo avvertimento: il pro¬ 
gramma occupa 8,3 Kbyte prima del 
RUN e per poterlo utilizzare con lo 
Spectrum 16 Kbyte è stata aggiunta 


l’istruzione “CLEAR 32767” alla li¬ 
nea 10. Con questo accorgimento 
viene utilizzata anche l’area di me¬ 
moria riservata ai caratteri grafici 
definiti dall’utente. Occorre dunque 
ricordarsi di spegnere il calcolatore 
dopo aver utilizzato il programma, 
in modo da ripristinare quest’area 
per successivi utilizzi grafici. 

Inutile dire che lo Spectrum con 
48 Kbyte non necessita di questo 
accorgimento, e quindi la linea 10 
può essere cancellata. ■ 



Figura 1. Istogramma di un periodo (anno 1982) di 12 
mesi. 1 dati introdotti hanno un’ottima correlazione e 
indicano chiaramente la tendenza (trend) fortemente 
ascendente. E stato chiesto il valore previsto per il terzo 
periodo (mese) dell’anno 1983; la previsione è visibile 
nell’angolo in alto a destra (16.06). 

Figura 2. Dati statistici relativi all'istogramma della 
figura 1. Si noti l’elevato coefficiente di correlazione 
(0.978). _ 


*MIN.= 3 

CUMULRTQ = 99 
+MEOIA dati= 9.25 
*SQM= 3.3378134. 


«RETTA TREND 
U=0. 91958042 *-t 

+ 3.1923077 

+COEFF. 

CORREI. . 

= 0.97868299 

* PREMI 

'CONT' 

PER CONTINUARE 


2/82 

*INCR. 

so t top. 

+33.3333337 

3 ✓82 

*ZNCR. 

SO t top . 

+257 

4./8S 

*XNCR. 

SO t top . 

+ 407 

5/82 

* INCR. 

S O t t op . 

+ 07 

6/82 

*INCR. 

SO t top . 

+14.2857147 

7/82 

*INCR. 

SO t top . 

+07 

8/82 

*INCR. 

SO t top . 

+257 

9/82 

«INCR, 

SO t top . 

-107 

10 /82 
7. 

*INCR. 

SO t top . 

+22.222222 

11/82 

% 

«■INCR. 

SO t t op . 

+18.181818 


Figura 3. Primo quadro video di incrementi percentuali 
di ogni mese rispetto al precedente. I quadri successivi 
si ottengono rispondendo affermativamente alla do¬ 
manda “ scroti?”. 
































I personal computer della serie LEMON II, JEN PC 1, PC 2 e JEN PC 3 Biprocessore, sono grandi compatibili. 
L’accesso a tutto il soft CP/M, 20.000 programmi, è la loro caratteristica più evidente. 

Ma sono garanzia, assistenza e un prezzo conveniente a fare di LEMON II una serie di computer realmente vincenti. 



MODELLO 

JEN PC 1 

JEN PC 2 

JEN PC 3 

PROCESSORE 

6502 

6502 

6502/Z80 

RAM 

48 K 

64 K 

64 K 

EPROM INTERPRETE 

10K 

10K 

10K 

EPROM MONITOR 

2K 

2K 

2K 

SISTEMA OPERATIVO DOS 

S 

S 

S 

SISTEMA OPERATIVO CP/M 

E 

E 

S 


LEM JN II 

II grande compatibile 


Distribuito dalla Belton Electronics s.r.l. • Zona Industriale 62010 Montelupone (MC) - Italia - Tel. 0733/586423-24 Telex 600071 JENSPA I - Divisione Informatica della Jen Elettronica s.r.l. 
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Listato 1. Listato BASIC del programma “ Istogrammi ” per ZX Spectrum. Con Spectrum 48 Kbyte è opportuno 
eliminare la linea 10. 


10 CLERR 3276? 

20 CLS 

4-0 BORDER 7: INK 0: PAPER 7: C 

LS 

45 DIM A(48): DIM G (48) : DIM 3 
(48) : DIM T(48) : DXM P (48) : LET 
U=0: CLS 

200 PRINT RT 1;8;DISEGNO 
XSTOGRRMMI *■**«*” 

36S PRINT RT 5,0;"INSERISCI IL 
TITOLO DELL' ISTOG. (»ax. 8 letta 

re - 0 per uscire)” 

450 INPUT “TITOLO: ";U* 

451 IF U*="0" THEN CLS : STOP 

452 PRINT RT 5,0;” 


453 IF LEN U*>8 THEN LET W*=U*( 
1 TO 8 ) 

454 PRINT RT 5,0;“** TITOLO» '" 

; U*; PAUSE 20 

455 PRINT A7‘ 7,0; "INDICO IL PRI 

MO PERIODO Ida 1 a 39: e 

x. 8-3 e non 1983)" 

4SS INPUT "PRIMO periodo» ** ; E 
4SI IF E>99 THEN GO TO 480 
485 PRINT RT 7,0;" 


ODO- RT PRIMO PERI 

500 PRINT RT 10,0;"INSERISCI IL 
N. DI SOTTOPERIODI SUCCESSIVI D 

I CUI DISPONI" 

501 PRINT RT 13,0;" «* 

sx. se PERlODO=anno 

--> SOTTOPER . = 1 » e s e " 

510 INPUT "N. TOT. SOTTOPER.IMA 
X=48> ",R 

520 IF R>48 -THEN GO TO 510 

539 LET U=R—1 

540 LET Tl=l: LET T2=T1: FOR T* 
3 TO U 

550 CLS : PRINT : LET Y=0; LET 
VsXN7" IT/Ì2) : LET I=E+V 
800 PRINT ,T2; ■ ORTO PER ";I 
610 IF T = 12 THEN RESTORE 
620 IF T = 24 THEN RESTORE 
630 IF T =36 THcN RESTORE 
640 IF T =46 THEN RESTORE 
660 PRINT 
680 INPUT G 

6S1 IF ©>=© RND ©<100000 THEN G 
O TO 69© 

SS2 BEEP ,5,3. PRINT RT 20,0;"e 
rrore! ridigitare il dato"; PRUS 
E 60. PRINT RT 20,0;" 

": GO TO 680 

690 LET R(T1)=C: LET B(T1)=G>: L 
ET T1 =T 1 + 1 : LET T2=T2+i 

691 IF T2>12 THEN LET T2=l 
700 LET E1=T1; NEXT T 

940 REM *** TROVA MAX. E MIN. 
950 LET 11 = X : LET U=A(1): LET U 
=999999 

960 FOR X = 1 TO R 

970 IF AtX)=0 THEN GO TO 1000 
980 IF A(X) >U THEN LET U=R(X) 
990 IF R(X) <U THEN LET U=R(X) 
1000 NEXT X 

1010 IF U=0 THEN PRINT "ORTI INS 
UFFICIENTI)": PRUSE 80: GO TO 45 

3 

1021 CLS 

1022 GO SUB 1730 

1030 CLS : PRINT “«MAX.= ”;U. PR 
INT "*nin.= 

1031 LET SSR=0 

1032 FOR X=1 TO R. LET SSR=SSR+R 
(X); NEXT X: LET SS=SSR7R: 

1033 LET MD»0: FOR X=ì TO R: LET 
N0=MD+( (A(X) -SS) « (A(X) -SS) ) : NE 

XT X: LET MAD=SOR iMD/ - (R —1) ) 

1034 PRINT "«URL. CUMULATO* ";SS 
R 

1035 PRINT "«MEDIA dati» " ; SS 


1037 PRINT "*S©H = ";MRD 

1038 PRINT : PRINT "”; PRINT “ 
«RETTA TREND 

U = ”; RE;" *t + RU; '; 

1039 PRINT : PRINT "«COEFF. CO 
RREL.» ";DD 

1040 PRINT RT 21,0;"* PREMI 'CON 
T' PER CONTINUARE”: PAUSE 0 

1041 CLS : LET J=0: LET U1=0 

1042 LET MM=2: LET RA=E 
1077 FOR X=1 TO (R-l) 

1079 LET PU»R(X): LET PD=A<X + 1) 

1082 LET DDL=PU-PD: IF DDL < 0 THE 
N GO TO 1084 

1083 LET DL=PU-PD. LET C=10O*CDL 
/PI)) : GO TO 1085 

1084 LET DL=PD-PU: LET CslDL/'PU) 
«100 

1085 IF DDL >0 THEN GO TO 1088 

1036 PRINT MM; "/";AA.; " «rNCR. SO 
ttop. C;“X": GO TO 1089 

1088 PRINT MM; AA; " «INCR. SO 

ttop. -”.;c;”X" 

1090 PRINT ” 11 : LET HM=MM + 1 

1091 IF MM < = 12 THEN GO TO 1093 

1092 LET AA=AA+1: LET MM=1 

1093 NEXT X 

1094 PRINT "« PREMI 'CONT ' PER C 
CNTXNUARE" 

1095 PAUSE 0 

1140 CLS : BORDER 0: PAPER 0. IN 
K 5: CLS 

1149 BRIGHT 1: LET C1=U: LET C9« 
CI: IF CI<=9999 THEN GO TO 1155 

1150 LET C1=0171000 : LET C*=STR$ 
CI: IF LEN C*>4 THEN LET C*=C*( 

1 TO 4): LET C1=UAL C*: GO TO 11 
74 

1155 IF CI<=999 THEN GO TO 1160 

1156 LET C1=C1/1®0: LET C$=STR* 
CI: IF LEN C$>4 THEN LET C$=C.*(1 

TO 4): LET C1=UAL C*. GO TO 117 

4 

1160 IF CI<=99 THEN GO TO 1164 

1161 LET 01=01710 : LET C$=STR$ C 
1: IF LEN C$>4 THEN LET C*=C$(1 
TO 4) \ LET C1=VAL C$: GO TO 1174 

1164 IF Cl>=10 THEN GO TO 1173 

1165 IF C1<=1 THEN GO TO 1172 

1166 LET C1=C1»10: LET C*=STR$ C 
1: IF LEN C*>4 THEN LET C$=C*(1 
t O 4): LET Ci=VAL C» 

1167 GO TO 1174 

1172 LET C$=STR* CI: IF LEN C*>4 
THEN LET C*=C»(1 TO 4): LET Cl= 

URL C$: LET C1=C1*100: GO TO 117 
4 

1173 LET C$=STR$ Cl: IF LEN C$>4 
THEN LET C$ = C$(1 TO 4.»: LET Cl» 

UAL Ct 

1174 LET MN = INT Cl 
1176 LET M3=C1 

1180 LET FRMT = ( 134/U) 

1191 PLOT 232,20 
121© FOR A=A0 TO 232 STEP 12 
1220 PLOT R,20: DRRIJ 0,-2: NEXT 
R: PLOT 40,159: ORAI) 192,0: PLOT 
232,2Q. ORAI 0,132 
123© FOR R =40 TO 232 STEP 48: PL 
GT R,20: DRRU ©, -4 : NEXT A 
1249 PLOT 40,20: DRRU 0,139 
125© FOR A=20 TO 155 STEP 6.75 

1260 PLOT 37,A: DRRU 3,0: NEXT A 
1270 FOR A=153 TO 20 STEP -13.5 
1280 PLOT 33,A: DRRU 5,©: NEXT R 

1261 BRIGHT © GO SUB 1700 
141© LET V = I 

142© FOR P=43 TO 232 STEP 4 
143fc LET B1*B (Y) «FRMT: IF Bi=© T 
HEN GO TO 1491 

1450 PLOT P..20+B1: DRRU ©,-Bl 
Ì4SS PLOT P+1..20+B1: DRRU 0,-Bl 
1470 PLOT P-1,20+81 DRRU 0,-Bl 

1491 LET Y =Y + 1: IF Y=R + 1 THEN GO 

TO 1500 : 

1492 NEXT P _ „ __ 

1500 PRINT RT 20,4;E,RT 20 ,10,E+ 
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Seguito listato 1. 

1800 CLS 

1810 LET X=0 

1S20 FOR Z = 1 TO R-l 

1830 LET X=X-fZ : NEXT Z 

184.0 t_ET MX=X/R 

1850 LET X2=0: LET CC=0 

1860 FOR X=1 TO R 

1870 LET P(X) = (CC-MX) 

1880 LET X2=X2+P(X)*P(X): LET CC 

=CC+1: NEXT X 

1820 LET 6=0 

1900 FOR Z = i TO R 

1910 LET B=B-f-R<Z): NEXT Z 

1920 LET MY=B/R: LET 82=0 

1925 LET B2=0 

1930 FOR X = 1 TO R 

1940 LET T (X) = CR(X) -MY) : LET B2 = 
B2+T (X) #T (X) : NEXT X 
1950 LET XY=B 
I960 FOR X = 1 TO R 

1970 LET XY=XY+P(X) *T(XI : NEXT X 

1980 LET RE=XY/X2 

1990 LET RU=HY + (RE* < -HX) > 

2000 LET Z=1: LET D=© 

2010 FOR X=1 TO R 
2015 LET F=R(X) 

2020 LET D=D+( < (F-TCZ) ) *(F-TCZ> ) 

) /R) : LET Z=Z+1: NEX'T X 

2025 LET SYX=SOR D 

2027 LET DDbXVVSOR (X2*B2> 

2034 RETURN 

3000 IF R$="N" OR R$="n" THEN GC> 
TO 3010 

3003 INPUT "idem, su file= ";afV 
3005 SRUE a$ SCREENJ 
3010 PAUSE 0: GO TO 10 
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Seguito listato 1. 

1;RT 20,16;EfSjRT 20,22; 5+3;RT 2 
0,26^5+4: PRINT RT 0,0;U*;" ";E; 

1510 LET 1=11: IF I=E THEN PRINT 
RT 0,10;" 

1550 LET I=2*(M3/10) 

1555 LET K=1 

1560 FOR Y = I TO (M3 + 1) 5TEP I 
1570 LET B(K)=Y 
1580 LET K=K+1 
159© NEXT Y 

1600 LET MN1=INT BC1): LET MN2 = I 
HT B ( 2 ) : LET MN3=INT B (3) : LET K 
N4=INT B ( 4 ): LET MN5=INT B(5) 
1605 IF B(1)-MN1>0 THEN LET N1=G 
: GO TO 1607 
1806 LET NI=2 

1607 IF B(2)-MN2>0 THEN LET N2=© 
: GO TO 1609 

1608 LET N2=2 

1609 IF B(3) -MN3 >0 THEN LET N3=0 
GO TO 1611 

1610 LET N3=2 

1611 IF B(4) —MN4 >0 THEN LET N4=0 
: GO TO 1613 

1612 LET N4=2 

1613 IF B(5) —HN5 >0 THEN LET N5=0 
. GO TO 1640 

1615 LET N5=2 

1640 PRINT RT 16,N1;B(1): PRINT 
RT 12,N2;B(2): PRINT RT S,N3;B(3 
): PRINT RT 5,N4,B(4) 

1650 IF B(5) <100 THEN GO TO 1652 

1651 PRINT RT 2,0;B(5): GO TO 16 
53 

1652 PRINT RT 2,N5;B<5) 

1653 IF C9>9999 THEN PRINT RT 0, 
17;"(U X1000)" 

1654 IF C9>999 RND 09<=9999 THEN 
PRINT RT 0,17;"(U X100)" 

1656 IF 09>99 RND C9<=999 THEN P 
RINT RT 0,17;"CU x!0>" 

1657 IF C9 <10 RND C9>=1 THEN PRI 
NT RT 0,17; " IU: 10) " 

1658 IF 09 <X THEN PRINT RT 0,17; 
'* <U : 100) " 

1669 INPUT ;"CHIEDI sottop. (0 p 
er uscire) ";M: IF MoB THEN GO 
TO 1672 

1670 PRINT RT 21,4;"pre»i 'ENTER 
' per uscire": INPUT “*S # per to 
mare a dati stat.";j*: if j* = "S 
“ OR J*="S" THEN GO TO 1030 

1671 INPUT "COPI L'ISTOG. SU FIL 
E7(S/N)";R$: GO TO 3000 

1672 INPUT ;" 

R 

1673 IF R <E OR R>=CE + 4) THEN GO 
TO 1672 

1674 IF R=(E+3) THEN LET 5=M+36 

1675 IF R= f E +2) THEN LET 9=M4S4 

1676 IF R=(E+l) THEN LET S=M+12 

1677 IF R=E THEN LET S=H 

1678 IF 5<=R THEN GO TO 1690 

1679 IF S<=(R+3) THEN GO TO 1681 

1680 PRINT RT 0,17;"NESSUN URLOR 
E": PRUSE 50: GO TO 1692 

1681 PRINT RT 0,17;"NESSUN URLOR 
E": PRUSE 50 

1682 IF DD <.75 THEN GO TO 1692 

1683 INPUT "UUOI LR PROIEZIONE D 

EL TREND7 (S/N) ";H* 

1684 IF H$="N" THEN GO TO 1692 

1685 IF H*="6" THEN GO TO 1687 

1686 IF Hto"S" OR H*<>"N" THEN 
GO TO 1663 

1687 PRINT RT 0,17;" 

LET TR=RE* l'S-l> +RU: LET TR=T 
R1-100 : LET TR = INT TR : LET TR=TR/ 
100: PRINT RT 0,17; "TR ( *' ; M; "/" ; R 
;")=•■ ;TR : PRUSE 220: GO TO 1692 
1690: PRINT RT 0,17;"U(";M;"X";R 
;")=";R(S): PRUSE 22© 

1692 PRINT RT 0,17;" 

": GO TO 1653 

1700 FOR fi=129 TO 20 STEP -27 
1705 FOR Y =40 TO 232 STEP 4 

1710 PLOT Y,fi : NEXT Y 

1711 NEXT fi 
1720 RETURN 


periodo 
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Finalmente 

cominciamo a scrivere 
'i primi programmini 

di Alessandro Guida 

Dove memorizzare i programmi 
in linguaggio macchina 

P rima di iniziare a scrivere 
dei programmi in linguag¬ 
gio macchina è giusto chie¬ 
dersi dove è possibile memorizzarli. 
Sappiamo, infatti, che parte della 
memoria del computer è del tipo 
ROM (memoria a sola scrittura). 
Inoltre, esclusa la ROM, la restante 
memoria è in gran parte utilizzata 
dal BASIC e dal sistema operativo. 
In pratica abbiamo solo tre possibi¬ 
lità. Una è di sottrarre un po’ di 
spazio ai programmi BASIC. Per fa¬ 
re ciò, però, è necessario spostare i 
puntatori che indicano il limite della 
memoria utilizzabile, altrimenti le 
variabili usate nei programmi BA¬ 
SIC andrebbero a cancellare le no¬ 
stre routine in linguaggio macchina. 

La seconda possibilità, è di utiliz¬ 
zare il buffer del registratore a cas¬ 
sette, a patto di non effettuare ope¬ 
razioni sul nastro mentre questo è 
occupato dai programmi in linguag¬ 
gio macchina. 

Questo buffer è lungo 196 byte a 
partire dalla locazione 828 in deci¬ 
male (S033C), ed è sufficiente a con¬ 
tenere i primi programmini che scri¬ 
veremo. 

Infine ricordiamo che sul 64 sono 
disponibili ben 4 Kbyte di RAM per 
i programmi in linguaggio macchi¬ 
na, a partire daSCOOO fino aSCFFF. 
Invece, per il VIC (con almeno 11 
Kbyte di espansione) è disponibile la 
zona di memoria da $0400 a$0FFF. 


Sintassi dei comandi 
del linguaggio macchina 

Per Semplicità tutti i comandi del 
6502 saranno riportati nella seguen¬ 
te maniera: 

AAA (#) $nn. 

AAA,.il comando vero e proprio, 
formato sempre da tre lettere come, 
ad esempio, LDA, STA, TAX ecc., è 
detto codice mnemonico. 

Queste tre lettere sono seguite da 
un indirizzo o da un dato numerico, 
entrambi in notazione esadecimale. 
I dati si distinguono dagli indirizzi 
perchè hanno sempre il carattere 
davanti al segno del dollaro ($). 


Il comando più comune 

Nei programmi scritti in BASIC 
la maggior parte delle istruzioni 
contengono comandi che fanno rife¬ 
rimento a variabili, sia per leggerne 
il valore sia per assegnargliene uno. 
Questo avviene anche in linguaggio 
macchina, con la differenza che non 
potremo leggere il contenuto di una 
variabile ma di una locazione. Que¬ 
sto significa che non avremo più a 
disposizione le comodità del BA¬ 
SIC. Infatti, in BASIC si assegna un 
nome alle variabili senza preoccu¬ 
parsi di dove queste vengano effetti¬ 
vamente memorizzate, al contrario 
in linguaggio macchina, se vogliamo 
conservare dei dati dobbiamo sce¬ 
gliere una o più locazioni in cui me¬ 
morizzarli, e prendere nota delle lo¬ 
cazioni usate per fare in modo di 
non alterarli accidentalmente. 

Fanno eccezione solamente i dati 
memorizzati nei registri interni 
(X,Y) del 6502 o nello STACK (ne 
abbiamo già parlato in precedenza). 
L’accumulatore “A” è un registro di 
passaggio nel quale memorizzeremo 
i dati sui quali effettuare le operazio¬ 


ni. 

Il primo comando di cui parliamoè, 
pertanto, quello per caricare un da¬ 
to nell’accumulatore. 

In BASIC avremmo subito digitato: 
A=10 

per assegnare alla variabile A il va¬ 
lore 10. 

In linguaggio macchina per caricare 
in A (accumulatore) il numero 10 si 
dà: 

LDA # $0A 

Questo comando vuol dire LoaD 
Accumulator (carica l’accumulato¬ 
re). Notiamo il segno per indi¬ 
care che il numero seguente è un 
dato e non un indirizzo. Osserviamo 
anche che il 10 è stato scritto come 
0A, quindi, in esadecimale. Come 
abbiamo già spiegato all’inizio di 
questa serie di articoli, è bene pren¬ 
dere l’abitudine di scrivere i numeri 
in notazione esadecimale poiché è 
molto più compatta di quella deci¬ 
male. 

Se, invece, avessimo voluto cari¬ 
care nell’accumulatore il contenuto 
di un’altra locazione (ad esempio 
SA005) sarebbe stato sufficiente im¬ 
postare il comando in questa manie¬ 
ra: 

LDA $A005 


I codici dei comandi 

Naturalmente la notazione LDA 
$A005 non può essere compresa dal 
6502, cosi com’è, a meno di utilizza¬ 
re un Assemblatore di cui parleremo 
dopo. 

Dovremo tradurre i comandi dati in 
Mnemonico (3 lettere) in codici for¬ 
mati da un solo byte. 

Ad esempio il codice dell’istruzione 
LDA è $A9 se l’istruzione è seguita 
da un numero o $AD se è seguita da 
un indirizzo. 
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Avremo cioè: 


LDA # $0A = A9 OA 
LDA SA005 = AD 05 A0 

Come abbiamo già visto, il micro- 
processore capisce dal codice dell’i¬ 
struzione quanti sono i byte seguenti 
che lo completano e come devono 
essere interpretati. Nel primo caso 
abbiamo una istruzione lunga 2 byte 
e nel secondo la lunghezza è di 3 
byte. 

Nel secondo esempio è importan¬ 
te notare che: / numeri e gli indirizzi 
formati da due byte vengono memo¬ 
rizzati nell’ordine LSB-MSB. Cioè, 
subito dopo il byte dell’istruzione 
viene il byte basso de! numero e poi 
quello alto. (Ricordiamo che LSB - 
Least Significative Byte - sono gli 
otto bit a destra di un numero lungo 
16 bit e omologamente MSB - Most 
Significative Byte - sono gli otto bit, 
cioè il byte, a sinistra). 


Il primo programmino 

È giunto ora il momento di scrive¬ 
re le prime istruzioni in linguaggio 
macchina. Sommeremo al contenu¬ 
to di una locazione di memoria il 
numero 20 (figura l): 


CLD 

CLC 

LDA $0900 


ADC#$ 14 


STA $0900 


; Azzera il flag BCD 
; Azzera il flag di Carry 
; Carica in A il conte¬ 
nuto della locazione $ 
0900 

; Somma $ 14 (in de- 
cim. 20) al contenuto 
dell'accumulatore 
; Rimette il risultato in 
%0900 


In questi pochi comandi abbiamo 
utilizzato 4 nuove istruzioni: 

CLD Serve ad azzerare il flag BCD. 
Se questo flag è settato (con SED) il 
6502 rappresenta i dati in formato 
Binary Coded Decimai di cui abbia¬ 
mo già parlato. 

LC Azzera il flag di Carry che indica 



Figura I. Questa figura illustra il viaggio compiuto dai dati ne! programma 
esempio (somma di due numeri da / byte) riportato nell’articolo. 


il riporto in una operazione di som¬ 
ma. 

ADC Somma il numero contenuto 
nell’accumulatore al numero (o al 
contenuto della locazione) specifi¬ 
cato dopo l’istruzione più il flag di 


carry. Da qui si vede l’importanza di 
azzerare tale flag prima di eseguire 
una addizione. 

Se la somma provoca un riporto ol¬ 
tre l’ottavo bit il Carry viene settato 
altrimenti resta azzerato. 
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Impariamo 
il linguaggio macchina 


STA È l’operazione esattamente op¬ 
posta al LDA. Serve a memorizzare 
l’accumulatore nella locazione di 
memoria specificata dopo l’istruzio¬ 
ne STA. 

È importante notare, in questo bre¬ 
ve esempio, la funzione svolta dal¬ 
l’accumulatore che si comporta co¬ 
me un registro di passaggio nel qua¬ 
le vengono effettuate tutte le opera¬ 
zioni, in questo caso una somma. 

Per rendere utilizzabile questa 
routine scritta sarà necessario tra¬ 
durla in codici indicando anche l’in¬ 
dirizzo di memoria in cui questi co¬ 
dici andranno inseriti. 

Poiché, per ora ci serviremo del buf¬ 
fer di cassetta (S033C) avremo: 


$033C CLD D8 

S033D CLC 18 

$033E LDA$0900 AD 00 09 
$0341 ADC# $ 14 69 14 

$0343 STA $0900 8D 00 09 


Osserviamo che le istruzioni occu¬ 
pano sempre un byte di memoria più 
uno o due byte a seconda se sono 
seguite da un dato o dal numero di 
una locazione. 

È possibile che l’istruzione sia se¬ 
guita anche dall’indirizzo di una lo¬ 
cazione in pagina zero. In questo 
caso è richiesto un solo byte oltre 
l’istruzione stessa. Ad esempio le 
due seguenti espressioni sono asso¬ 
lutamente identiche: 

LDA $00FE AD FE 00 

LDA $FE A5 FE 

Il secondo comando è, però, più 
conveniente in quanto occupa meno 
memoria ed è più veloce da eseguire. 

Queste appena viste sono due del¬ 
le possibili capacità di indirizzamen¬ 
to del 6502: indirizzamento assoluto 
(con un indirizzo a 16 bit) e indiriz¬ 
zamento in pagina zero(con un indi¬ 
rizzo ad otto bit riferito alla pagina 
zero della memoria). Presto vedre¬ 
mo gli altri modi. 

Naturalmente con il tipo di indiriz¬ 
zamento cambia il codice dell’istru¬ 
zione poiché è proprio questo ad 


indicare al 6502 come deve interpre¬ 
tare il dato seguente. 

Memorizzazione dei programmi 
in linguaggio macchina 

Resta ora il problema di mettere 
in memoria i codici relativi al pro¬ 
gramma in linguaggio macchina 
scritto. 

Una soluzione è quella di tradurre 
gli indirizzi e i codici in decimale e 
poi immetterli in memoria con istru¬ 
zioni POKE. 

Ad esempio le prime due istruzioni 
del programma di somma di due nu¬ 
meri da un byte diventerebbero: 

POKE828,2l6 

POKE829.24 

Naturalmente questo metodo va be¬ 
ne solo se i codici da introdurre in 
memoria sono pochi. 

Una facilitazione è data dal pro¬ 
gramma del listato uno. 

Questo permette di introdurre i co¬ 
dici direttamente in esadecimale e di 
controllare il contenuto della me¬ 
moria. 

Un ulteriore passo in avanti lo fare¬ 
mo con la presentazione di un as¬ 
semblatore che permetterà di digita¬ 
re i programmi in linguaggio mac¬ 
china (detto anche Assembly) diret¬ 
tamente in Mnemonico. 


Il programma in BASIC 

Il programma presentato nel li¬ 
stato uno permette l’inserzione di 
codici in memoria direttamente in 
esadecimale. 

Dato il RUN viene richiesta la loca¬ 
zione di inizio per la memorizzazio¬ 
ne. A questo punto si può comincia¬ 
re ad inserire i codici. 

Questi devono essere formati da due 
caratteri esadecimali, esesi introdu¬ 
ce più di un codice per linea, questi 
dovranno essere separati da uno 
spazio. 

Ogni linea non può contenere più di 
8 codici. 


Il programma provvede anche a 
controllare i codici introdotti segna¬ 
lando le linee contenenti dati errati. 

Per effettuare la memorizzazione 
dei dati digitati è sufficiente premere 
il RETURN. Se tutti i codici sono 
corretti viene visualizzato il numero 
della successiva locazione di memo¬ 
ria e il programma resta in attesa di 
nuovi codici o di un comando. 

I comandi a disposizione sono: 

termina il programma; 

“$” torna a chiedere l’indirizzo di 
partenza. E utile se si vogliono cari¬ 
care dei codici in zone non consecu¬ 
tive di memoria; 

“!” visualizza i primi otto codici me¬ 
morizzati dalla locazione di parten¬ 
za in poi. Quindi se si preme un tasto 
qualsiasi vengono mostrati i conte¬ 
nuti delle otto locazioni successive 
altrimenti, premendo il tasto “HO¬ 
ME”, si torna alla memorizzazione 
codici. 

Perfezionamento 
del primo programma 

Miglioriamo ora il programma di 
somma visto prima. Questa volta si 
vogliono sommare due numeri a 16 
bit contenuti nelle locazioni $FA, 
$FB e $FC, $FD in pagina zero. 
Naturalmente rispetteremo la con¬ 
venzione dell’ordine byte basso- 
byte alto. 

II programma in Assembly sarà: 


03 3C 

C I I) 

l)X 

; Azzera Eluy HC'D 

03 3 D 

CIC 

IX 

: Azzera E'Iuy CaiT> 

033 E 

LDA 

SI A A5 

FA : Carica LSH primo mime io 

0340 

AIK 

SIC 65 

EC : Somma I.SIi secondo numero 

0342 

STA 

SI E xS 

ET' : Molle il liviillalo in SEI: 

0344 

LDA 

SI lì A5 

Eli : Carica MSB primo numero 

0346 

ADC' 

SI 1)6.5 

ED : Somma MSB secondo numero 

034X 

STA 

SET 85 

ET' ; Mene il risultato in SET 

0349 

RTS 

60 

: RETURN 


Come possiamo verificare sono 
cambiati i codici delle istruzioni 
LDA, ADC, STA. Questo perchè 
abbiamo usato l'indirizzamento in 
pagina zero. Da notare che all’indi¬ 
rizzo $033D viene pulito il flag di 
Carry, cosi che dopo la prima som¬ 
ma tale flag indicherà se vi è stato 
riporto. In tal caso il secondo ADC 
automaticamente aggiungerà il ri¬ 
porto alla somma dei byte alti. 

L’ultima istruzione RTSèequiva- 
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10 PRINT“SCARICATORE DI CODICI L. M. SMMKT : OPEN1 .■ 0 
28 PRIHT- INPUT" INDIRIZZO PARTENZA " ; A» • IFLENlft#,'O4THEN10 
25 PRINT"M" 

30 H*=LEFT*<fl*, 2> '■ L*«RIGHT*CA*, 2> 

40 C*=H* : GO3UB500 ■ flD5i«RX*236 : C*=L* GOSUI j”0 • HDX-h.DJì+RJÌ : S?i*flD5i 
60 HBX=HDX?256 LBX=flD?i-HB/.#236 
70 RX=HB:-i : OOSUB1000 : ADT-C* 

00 RX=LBJi : OOSUB 1000 AB*-fìD*+C* : I FRT= 1T HENRETURN 
90 FR I NT : PRI NTflB* " " J ■ INPUT* 1., fi* 

100 IF LEN<fi*»30THENPRINT" ???•■; :GOTO90 
105 IFfi*="*"THENCLOSEl : END 
107 IFLETT* CHS, 1 >«" ! "THENUX-fiDJi : l-ITO300 
10S IFLEFT*<fi*, 1) = "*"THEN20 

110 EX=8 : FORI = 1TOLEN C fi* : IFflI B* ( fi*.. I.. 1 ;■ = " " THEN116 
112 K*=mD*Cfi*, I.. 1> 

114 IFK*< " 0“OR < K*> "3 “RNDK*< " fi " ) ORK*> " i " " THENfcJS* 1 
116 NEXT 

118 IFEXTHENPRINT" ???".; 001090 
i60 FORCC=1TOLENC fi*> 

170 C*=riIB*<fi*, CO. 1 > : IFC*=" "THEN200 
180 CC=CC+1 = C *=C *+M11 * < A* .• OC.. 1 > 

130 GOSUB500 : POKEfiDfi , RX : fiD. .=fii;;+1 
200 NEXT 
210 0OT060 

000 RT=1 fiDX=37: : PRINT "SI" 

305 GOSUB60 
310 FRINTAD*" "i 
320 FORI~0iU7 

330 F»PEEK<fiDX+I> : GO3UB1000 : PRINTC*" "j 

340 HE IT PRINT 

350 OLTA*:IFfl*=“"THENO50 

360 iFfl*0”a ,, THEHHD7.=MllX+8 = >.0 10705 

370 R7=0:flDK»UM : OOTO60 

500 D*=LErT*<C*, 1 > i OOSUB700 : RK«RS*lt- 

5 1 0 B*=RI OHT* <C*/1>= OOSUB7O0 : RJi-R I+R . : 

520 RETURN 

700 R3=ASC B* > -43+7 4K fi OC D* ' -■58'' ' RETURN 
i óOo HX=Ro/16 : LX=RJi-H?:■* 16 

101Ù C*-CHR* < fili * 48-?* C HX>9> > +CHR* < LJi+40- . '* < L5i>9 > > 

1020 RETURN 


Listato 1. Programma per immettere velocemente in memoria i codici delle 
istruzioni in linguaggio macchina. 


Impariamo 
io macchina 

lente al comando BASIC “RE¬ 
TURN”. Essa è necessaria sia al ter¬ 
mine di una subroutine sia al termi¬ 
ne di un programma intero in lin¬ 
guaggio macchina se si vuole torna¬ 
re al BASIC. 

Perchè il ritorno al BASIC sia effet¬ 
tuato senza problemi è necessario 
che il passaggio dal BASIC al lin¬ 
guaggio macchina sia stato eseguito 
con l’istruzione SYS o USR(X). 

L’esecuzione di routine 
in linguaggio macchina da BASIC 

Il metodo più semplice e più usato 
per passare dal BASIC al linguaggio 
macchina è senz’altro l’istruzione 
SYS (nnnn). Dove “nnnn” sta per 
l’indirizzo di partenza della routine 
linguaggio macchina in questione. 
Quando un programma BASIC in¬ 
contra tale istruzione, interrompe 
l’esecuzione del programma princi¬ 
pale e passa al programma in lin¬ 
guaggio macchina. 

Il ritorno al BASIC si avrà quan¬ 
do verrà incontrata l’istruzione RTS 
(ReTurn from Subroutine). 
Tornando al nostro programma di 
somma, dopo averlo caricato in me¬ 
moria (nel buffer della cassetta), per 


vederlo in funzione scriveremo que¬ 
sto breve programma BASIC. 

10 POKE 250,120:POKE 251,0: 

POKE 252,160:POKE 253,0 
20 SYS 828 

30 PRINT PEEK(254),PEEK(255) 


Dando il RUN verranno sommati 
120 e 160 e poiché il risultato è più 
grande di 256 troveremo 24 (byte 
basso) nella locazione $FE (254) e 1 
(byte alto) in $FF (255). 

La prossima volta vedremo molti 
altri comandi del 6502. ■ 



TELEMATICA 

Dal viewdata all'office automatlon 


Tutti oggi padano di telematica, di so¬ 
cietà dell'Informazione, di banche da¬ 
ti. 

Ma cosa è la telematica? Un insieme 
di servizi di videoinformazione e tra¬ 
smissione di dati e testi. Innanzitutto la 
videoinformazione. Essa rappresenta 
un servizio che, utilizzando le reti telefo¬ 
niche pubbliche, permette ad un 
qualsiasi utente, dotato di un televiso¬ 
re a colori adatto, di richiedere e rice¬ 
vere informazioni memorizzate su op¬ 
portune banche di dati (Videotel e Te¬ 
levideo). Poi vi sono I servizi pubblici 
per la trasmissione di testi scritti da ter¬ 
minale a terminale ed il fac-slmile. Essi 
sono basilari, fra l'altro, per la realizza¬ 
zione della "posta elettronica". 

Le applicazioni della telematica sono 
infinite ed in parte ancora da scoprire. 
Essa è. innanzitutto, un nuovo e poten¬ 
te "medium" nel campo della comu¬ 
nicazione e deH'informazione, ma è 


anche lo strumento principale che ri¬ 
voluzionerà l'organizzazione e la pro¬ 
duttività del lavoro di ufficio, per realiz¬ 
zare quello che si chiama "office auto- 
mation". 

Questo libro intende dare un Impulso 
alla conoscenza della telematica, e si 
prefigge di offrire al lettore un panora¬ 
ma del problemi connessi con questa 
disciplina e con I relativi aspetti appli¬ 
cativi. Le caratteristiche dell'esposizio¬ 
ne fanno si che il volume possa propor¬ 
si Indifferentemente all'esperto EDP e 
di organizzazione, quanto allo studio¬ 
so che si accosta per la prima volta a 
questa materia: l'esperto troverà un si¬ 
curo riferimento per la risoluzione di 
problemi teorici e pratici, mentre lo stu¬ 
dioso troverà, in una forma organica, i 
principi fondamentali Indispensabili 
per la conoscenza delle varie proble¬ 
matiche. 



di Riccardo 

Cod. 518D Pag. 186 
L. 19.000 


Sommario 


Telematica e suo sviluppo - Evoluzione 
dele telecomunicazioni per lo sviluppo 
della telematica - Reti per telecomuni¬ 
cazioni - Reti di calcolatori e banche 
dati - Videotex e Teletext - Altri nuovi 
servizi di telematica - Funzionalità del 
sistema videotex - Sviluppi del videotex 
nel mondo - Telematica in Italia - Svi¬ 
luppo delle comunicazioni - Applica¬ 
zioni della Telematica - Comunicazio¬ 
ni di massa e aspetti socio-economici 
e giuridici. 


Potete acquistare il suddetto 
libro nelle migliori librerie oppu¬ 
re scrivendo direttamente a: 

Gruppo Editoriale Jackson - 
Divisione Libri - Via Rosellini, 12 
20124 Milano 
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CONVIENE ABBONARSI .... 
.... ALLE RIVISTE JACKSON 

Uno sconto sicuro per chi sottoscrive un abbonamento 


Riviste 

Uscite 

Importo globale 

Costo abbonamento 

Costo abbonamento estero 

Personal Software 

11 

L. 44^00 

L. 34.000 

L. 51.000 

Bit 

11 

L. 44.000 

L. 35.000 

L. 52.500 

Informatica Oggi 

11 

J„38.500 

L. 31.000 

L. 46.500 

Elektor 

12 

L36.000 

L. 29.000 

L. 43.500 

Automazione Oggi 

11 

L, 38.500 

L. 30.500 

L. 45.250 

Elettronica Oggi 

11 

L. 44;000 

L. 36.000 

L. 54.000 

L’Elettronica 

22 

L. 55.000 

L. 44.000 

L. 66.000 

Telecomunicazioni Oggi 

10 

.1—35:000 

L. 28.000 

L. 42.000 

Video Giochi 

11 

L. 38.500 

L. 30.000 

L. 45.000 

Strumenti Musicali 

10 

J~3(fcOOO 

L. 24.000 

L. 36.000 

Home Computer 

11 

L38500 

L. 31.000 

L. 46.000 


Un supersconto a chi si abbona a due o più riviste 

Tutti coloro che sottoscrivono l'abbonamento a due o più 
riviste godono di un prezzo ulteriormente agevolato, come 
appare nella seguente tabellina. 

Esempio: Bit + Informatica Oggi 

(Italia) L. 35.000 + L. 31.000 = L. 66.000 meno L. 2.000 = L. 64.000! 

(Estero) L. 52.500 + L. 46.500 = 99.000 meno L. 2.000 = L. 97.000! 


Abbonamento a 2 riviste: L. 2.000 in meno sulla somma dei 

2 prezzi d’abbonamento 

Abbonamento a 3 riviste: L. 4.000 in meno sulla somma dei 

3 prezzi d'abbonamento 

Abbonamento a 4 riviste: L. 7.000 in meno sulla somma dei 

4 prezzi d'abbonamento 

Abbonamento a 5 riviste: L. 10.000 in meno sulla somma dei 

5 prezzi d abbonamento 

Abbonamento a 6 riviste: L. 13.000 in meno sulla somma dei 

6 prezzi d'abbonamento 

Abbonamento a 7 riviste: L. 16.000 in meno sulla somma dei 

7 prezzi d'abbonamento 


Abbonamento a 8 riviste: L. 20.000 in meno sulla somma degli 8 prezzi d'abbonamento 


Abbonamento a 9 riviste: L. 25.000 in meno sulla somma dei 9 prezzi d'abbonamento 
Abbonamento a 10 riviste: L. 30.000 in meno sulla somma dei 10 prezzi d’abbonamento 
Abbonamento all riviste: L. 35.000 in meno sulla somma degli 11 prezzi d'abbonamento 


Per abbonarsi 

Per sottoscrivere abbonamenti utilizzate il modulo di c.c.p. n. 11666203 intestato a Gruppo Editoriale Jackson - 
Via Rose Mini, 12 - Milano, oppure inviate un assegno o un vaglia postale al nostro ufficio abbonamenti. 







































Othello per ZX81 

- Parte seconda - 


(16970) 

33 

100 

120 

1 

100 

0 

17 

0 

120 

237 

176 

201 

1 

100 

0 

17 

100 

120 

33 

0 


120 

237 

176 

33 

143 

121 

6 

100 

35 

54 


0 

16 

251 

1 

12 

0 

197 

205 

74 

66 


193 

197 

33 

255 

119 

9 

126 

254 

0 

194 

(17020) 

40 

67 

33 

0 

125 

113 

33 

30 

125 

54 


0 

33 

10 

125 

54 

1 

33 

20 

125 

54 


2 

205 

II 

66 

33 

30 

125 

126 

254 

0 


202 

40 

67 

193 

197 

0 

33 

129 

64 

9 


126 

254 

9 

32 

9 

33 

40 

125 

1 13 

193 

(17070) 

205 

74 

66 

201 

89 

1 

8 

0 

197 

33 


180 

65 

9 

86 

123 

130 

79 

33 

255 

119 


9 

126 

254 

1 

32 

29 

121 

130 

79 

33 


255 

119 

9 

126 

254 

1 

40 

244 

254 

2 


32 

13 

121 

146 

79 

33 

255 

1 19 

9 

54 

(17120) 

2 

121 

187 

32 

244 

193 

13 

121 

254 

0 

32 

202 

33 

10 

125 

54 

2 

33 

20 

125 


54 

1 

33 

40 

125 

54 

1 

33 

30 

125 


54 

1 

205 

209 

65 

33 

40 

125 

126 

254 


1 

32 

6 

193 

113 

195 

84 

67 

0 

6 

(17170) 

0 

79 

33 

129 

64 

9 

86 

19.7 

197 

33 


129 

64 

9 

126 

146 

198 

20 

33 

143 

121 


9 

119 

193 

12 

121 

254 

90 

194 

110 

66 


33 

41 

125 

54 

0 

43 

54 

1 . 

1 

12 


0 

33 

143 

121 

9 

126 

254 

0 

40 

10 

(17220) 

3.3 

41 

125 

190 

250 

78 

67 

119 

43 

113 


12 

121 

254 

90 

32 

231 

33 

10 

125 

54 


1 

33 

20 

125 

54 

2 

205 

74 

66 

201 


Figura 1. Codici del linguaggio macchina da inserire nelle locazioni da 16970 a 
17249 con il programma elencalo nel listato 3. 


a 

Rii 

REM (SEGUITR i>R 

SS© CRRRTTE 

5© 

FOR TO 

!■?&« 

55- 

XWPUT R 


e© 

PRIMT X; '* = 


• -SS 

-RCK.E. 


7© 

XF PEEK 164-16=2 

THEN SCROL.L 


MEXT 2 


©0 

STOP 



Listato 1. Caricatore della routine in linguaggio macchina. Dare un RUN ed 
inserire i codici del listato 3. 


24-SgiPRimr { , "LIUELLO DX GIOCO"? 
Ci. ** 

si© ‘ XP ZNKEY $ < > “ 1 " RND XHKEY £ < > 
THEM GOTO S4-© 

S4S L.ET UU^CODE 2LNKEY * 

2©7© LET L.-USR * 16SS 9 -è- Ci53 RMO L 
J-3©)) 


distato 2. Modifiche da apportare al listato 1 del programma Othello presen¬ 
tato sul numero scorso. 


2° livello di gioco 
per lo ZX 

di Angelo Motta 

S ull’ultimo numero di Per¬ 
sonal Software è stato pre¬ 
sentato il programma Othel¬ 
lo. Chi è già pratico del gioco si sarà 
sicuramente accorto, dopo alcune 
partite, che lo schema di gioco del 
computer è abbastanza semplice e, 
con un po’ di pratica si riesce a otte¬ 
nere facilmente la vittoria. 

Come annunciato ecco un am¬ 
pliamento del suddetto programma, 
che consente allo ZX di analizzare 
anche le possibili contromosse del 
giocatore e tenerne conto per deter¬ 
minare la propria mossa. 

Modifiche apportate al programma 
originario 

Le modifiche consistono sostan¬ 
zialmente nell’aggiunta di una routi¬ 
ne in linguaggio macchina che per¬ 
mette un 2° livello di gioco, e delle 
linee BASIC necessarie ad attivarla. 

Cominceremo esaminando la 
routine illustrata nella figura 2, con 
la quale lo ZX sceglie la mossa al 2° 
livello. Inizialmente viene copiata la 
matrice di controllo del gioco in 
un’altra matrice creata nelle loca¬ 
zioni da 30820 a 30919 perchè, nello 
svolgimento della routine, la prima 
verrà modificata in continuazione. 
Viene creata una ulteriore matrice 
nelle locazioni da 31120 a 31219, 
contenente inizialmente tutti 0, che 
lo ZX utilizzerà per la scelta della 
mossa in base ai valori che inserirà 
in seguito alle valutazioni effettuate. 
A questo punto vengono passate in 
rassegna tutte le 64 caselle della 
scacchiera con lo stesso criterio se¬ 
guito al livello 1: se la casella è occu¬ 


pata la scarta, se è libera chiama la 
routine di controllo della validità 
della mossa e, se questa è valida, 
diversamente dal 1° livello, provve¬ 
de all’aggiornamento della matrice 
di controllo. 


A questo punto lo ZX utilizza la 
routine con cui in precedenza sce¬ 
glieva la mossa per controllare quale 
sia la miglior contromossa possibile 
in base al valore strategico delle ca¬ 
selle. La differenza tra il valore della 
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Othello 
per ZX81 

casella che sta esaminando e quella 
della possibile contromossa avver¬ 
saria, viene posto nella corrispon¬ 
dente casella della matrice creata 
nelle locazioni da 31120 a 31219. 
Dopo aver esaminato tutte le 64 ca¬ 
selle della scacchiera, lo ZX va a 
riprendere la suddetta matrice e sce¬ 
glierà come mossa quella casella che 
conterrà il valore più alto, cioè la 
differenza fra mossa e contromossa 
più favorevole. 

La strategia prevede inoltre che, 
se mentre lo ZX passa in rassegna le 
caselle trova come possibile mossa 
una casella d’angolo, obbligatoria¬ 
mente la esegue in considerazione 
della importanza strategica della 
stessa. Inoltre, se nella fase di con¬ 
trollo della contromossa scopre che 
l’avversario non può muovere e de¬ 
ve passare il turno, interrompe la 
routine ed effettua quella mossa. 

Con la possibilità di analizzare la 
mossa successiva dell’avversario, la 
qualità del gioco è notevolmente mi¬ 
gliorata anche se non è possibile pa¬ 
ragonarla a quella di programmi 
con più livelli di gioco e che permet¬ 
tono di analizzare più mosse succes¬ 
sive. 

Il listato ed i codici del linguaggio 
macchina da inserire nella REM 2 
sono illustrati nella figura 1 e nel 
listato 1. 

Si ricorda che tassativamente la 
REM 1 del programma originario 
dovrà essere seguita da 450 caratteri 
in modo che la routine per il 2° livel¬ 
lo parta esattamente dalla locazione 
16970; in caso contrario il program¬ 
ma non funzionerà e potrebbe addi¬ 
rittura bloccare la macchina. 

La linea: 2870 LET L= URS 
(16829+(153 AND LV=30)) sosti¬ 
tuisce la precedente e grazie agli 
operatori relazionali permette allo 
ZX di giocare al livello scelto, alle 
linee 245, 246. 

Il programma al 2° livello è stato 
fatto provare a diversi giocatori e, 
mentre con i più esperti ha consegui¬ 
to poche vittorie, ha rivelato di esse¬ 
re un avversario interessante per gli 
altri. 

64 





Figura 2. Routine in linguaggio macchina mediante la quale lo ZX sceglie la 
mossa a! 2° livello. 


thlc 

Decimali 

Hex 

•Mnemonici 

Noie 

16970 

33 

100 

120 

21 

64 

78 

LD HL. 30820 

Subroutine che riporta la 

1697.7 

i 

100 

0 

01 

64 

00 

LD BC. 100 

matrice di controllo gioco 

16976 

17 

0 

120 

11 

00 

78 

LD DE. 30720 

atto sialo iniziale 

16979 

277 

176 


LD 

B0 


LD1R 


I69HI 

201 



C9 



RET 


169X2 

01 

100 

0 

01 

64 

00 

LD BC. 100 

salva le variabili di controllo 

169X5 

17 

100 

120 

11 

64 

78 

LD DE, 30820 

nelle locazioni da MÌH20 

169XX 

33 

0 

120 

21 

00 

78 

LD HL. 30720 

a .mi9 

16991 

237 

176 


ED 

B0 


LD1R 


16997 

77 

143 

121 

21 

XF 

79 

LD HL. 31119 

azzera le locazioni che 

16996 

06 

100 


06 

64 


LD B. 100 

conterranno i valori per 

1699X 

75 



23 



INC HL 

la scella della mossa 

16999 

54 

0 


36 

00 


LD (HL). 0 


17001 

16 

251 


10 

FB 


DJNZ —5 


17007 

1 

12 

0 

01 

OC 

00 

LD BC. 12 

inizio ciclo 

17006 

197 



C5 



PUSH BC 


17007 

205 

74 

66 

CD 

4A 

42 

CALI. 16970 

ripristina matrice 

17010 

197 



CI 



POP BC 

ripristina valore mossa 

17011 

197 



C5 



PUSH BC 

nei registri BC 

17012 

77 

255 

119 

21 

FE 

77 

LD HL. 30719 

la casella esaminala è 

17015 

9 



09 



ADD HL. BC 

vuota? 

17016 

126 



7E 



LD A. (HL) 

Se NO passa ad altra casella 

17017 

254 

0 


FE 

00 


CP 0 


17019 

194 

40 

67 

C2 

28 

43 

JP NZ 17192 


17022 

33 

0 

125 

21 

00 

7D 

LD HL. 32000 

carica i byte con le variabili 

17025 

117 



71 



LD (HL). C 

di controllo 

17026 

33 

30 

125 

21 

IE 

7D 

LD HL. 32030 


17029 

54 

0 


36 

00 


LD (HL). 0 


17071 

33 

10 

125 

21 

0A 

7D 

LD HL. 32010 


17074 

54 

1 


36 

01 


LD (HL). 1 


17076 

33 

20 

125 

21 

14 

7D 

LD HL. 32020 


17079 

54 

2 


36 

02 


LD (HL). 2 

e controlla la validità 

17041 

205 

11 

66 

CD 

0B 

42 

CALL 16907 

della mossa 

17044 

37 

30 

125 

21 

IE 

7D 

LD HL, 32030 

Se la mossa non è permessa 

17047 

126 



7E 



LD A. (HL) 

passa ad altra casella 

1704X 

254 

0 


FE 

00 


CP 0 


17050 

202 

40 

67 

CA 

28 

43 

JP Z 17192 


17057 

197 



CI 



POP BC 

ripristino valore mossa 

17054 

197 



C5 



PUSH BC 

nei registri BC 

17055 

0 



00 



NOP 


17056 

33 

129 

64 

21 

81 

40 

LD HL. 16513 

controlla se la casella 

17059 

9 



09 



LD HL. BC 

è d’angolo 

17060 

126 



FE 



LD A. (HL) 


17061 

254 

9 


FE 

09 


CP 9 


17067 

72 

9 


20 

09 


JR NZ +9 


17065 

33 

40 

125 

21 

28 

7D 

LD HL. 32040 

se d’angolo effettua la 

17068 

113 



71 



LD (HL). C 

mossa, ripristinando lo 

17069 

193 



CI 



POP BC 

stato iniziale delle variabili 

17070 

205 

74 

66 

CD 

4A 

42 

CALL 16970 

di controllo 

17077 

201 



C9 



RET 


17074 

89 



59 



LE E.C 

provvede all'aggiornamento 

17075 

1 

8 

0 

01 

08 

00 

LD BC.8 

della scacchiera (routine 

17078 

197 



C5 



PUSH BC 

simile a quella de1 

17079 

33 

180 

65 

21 

B4 

41 

LD HL. 16820 

listato 3). 

17082 

9 



09 



ADD HL. BC 


170X7 

86 



56 



LD D. (HL) 


17084 

123 



7B 



LD A. E 


17085 

130 



82 



ADD A. D 


17086 

79 



4F 



LD C. A 


17087 

33 

255 

119 

21 

FE 

77 

LD HL. 30719 


17090 

9 



09 



ADD HL. BC 


17091 

126 



7E 



LD A. (HL) 


17092 

254 

1 


FE 

01 


CP 1 


17094 

32 

29 


20 

1D 


JR NZ + 29 


17096 

121 



79 



LD A. C 


17097 

130 



82 



ADD A. D 


17098 

79 



4F 



LD C. A 


17099 

33 

255 

119 

21 

FE 

77 

LD HL. 30719 


17102 

9 



09 



ADD HL. BC 


17107 

126 



7E 



LD A. (HL) 


17104 

254 

1 


FE 

01 


CP 1 


17106 

40 

244 


28 

F4 


JR Z-12 


17108 

254 

2 


FE 

02 


CP 2 


17110 

32 

13 


20 

OD 


JR NZ+13 


17112 

121 



79 



LD A, t 


17117 

146 



92 



SUB A. D 


17114 

79 



4F 



LD A, C 


17115 

33 

255 

119 

21 

FE 

77 

LD HL. 30719 


171IX 

9 



09 



ADD HL. BC 



















Anno nuovo, novità JACKSON 




«la prima e unica 
Enciclopedia di 
Elettronica e di Informatica», 
il Gruppo Editoriale Jackson 
annuncia che dal 1° 
febbraio sarà in edicola 

ABC Personal 
Computer: 

il Corso di Basic in 24 fascicoli settimanali 
più facile, più rapido, più completo. 
Realizzato per voi da chi l’informatica 
la conosce davvero! 


24 fascicoli settimanali 

per ottenere uno splendido 
Corso rilegato composto da: 
volumi di Lezioni per complessive 608 pagine 
volume di Computer-test di 104 pagine 

Dizionario di Informatica di 200 pagine 


Abbonamento-risparmio + Libro 


il risultato 
dell’esperienza 
la conferma 


della superiorità 


GRUPPO 

EDITORIALE 

JACKSON 


Nome 


Cognome 


Città 


Prov. 


C.A.P. 


Data 


Firma 


Tagliando da inviare in busta chiusa a: 

Gruppo Editoriale Jackson “ABC Personal Computer” 
via Rosellini, 12 - 20124 Milano 


Sì, desidero sottoscrivere l’abbonamento risparmio ai 24 fascicoli 
di ABC Personal Computer e alle copertine dei 4 volumi dell'opera. 
Tutto al prezzo speciale di L. 80.000 invece di L. 96.000. In più 
avrò diritto a ricevere immediatamente il volume di Adam Osborne: 
Microelettronica, la Nuova Rivoluzione Industriale. 

Allego alla presente 

□ assegno non trasferibile di L. 80.000 a voi intestato 
□.fotocopia di versamento di L. 80.000 sul ccp n. 11666203 

□ fotocopia di vaglia postale di L. 80.000 a voi intestato 
I fascicoli dovranno essere inviati a: 


Dopo 

lo strepitoso 
successo di m 























Seguito figura 2. 


Othello 
per ZX81 


| Byte 

Decimali 

Hex 

Mnemonici 

Note 

; 17119 

54 

2 


36 

02 


LD (HL). 2 


17121 

121 



79 



LD A. C 


17122 

187 



BB 



CP E 


17122 

22 

244 


20 

F4 


JR NZ-12 


17125 

192 



CI 



POP BC 


17126 

12 



OC 



DEC C 


17127 

121 



79 



LD A. C 


17128 

254 

0 


FE 

00 


CP 0 


17120 

22 

202 


20 

CA 


JR NZ-54 


17122 

23 

10 

125 

21 

OA 

7D 

LD HL. 32010 

carica le variabili di con irai lo 

17125 

54 

2 


36 

02 


LD (HL). 2 

con i valori per la mossa 

17127 

33 

20 

125 

21 

14 

7D 

LD HL. 32020 

del giocolare 

17140 

54 

1 


36 

01 


LD (HL). 1 


17142 

33 

40 

125 

21 

28 

7D 

LD HL. 32040 


17145 

54 

1 


36 

01 


LD (HL). 1 


17147 

33 

30 

125 

21 

1E 

7D 

LD HL. 32030 


17150 

54 

1 


36 

01 


LD (HL). 1 


17152 

205 

209 

65 

CD 

DI 

41 

CALL 16849 

la mal ine di figura .1 

17155 

33 

40 

125 

21 

28 

7D 

LD HL. 32040 

viene mitizzala per la 

17158 

126 



7E 



LD A. (HL) 

contromossa del giocatore; 

17159 

254 

1 


FE 

01 


CP 1 

se questi non può 

17161 

32 

6 


20 

06 


JR NZ + 6 

muovere lo ZX sceglie 

17162 

193 



CI 



POP BC 

tu mossa che sia esaminando 

17164 

113 



71 



I.D (HL). C 


17165 

195 

84 

67 

C3 

54 

43 

JP 17236 


17168 

0 



00 



NOP 


17169 

6 

0 


06 

00 


LD B. 0 

mene nella mairice nei 

17171 

79 



4F 



LD C. A 

bue da .il 120 a .11219 

17172 

33 

129 

65 

21 

81 

40 

LD HL. 16513 

la differenza Jia il va- 

17175 

9 



09 



ADD HL. BC 

loie della mossa che sta 

17176 

86 



56 



LD D. (HL) 

esaminando e la contro- 

17177 

193 



CI 



POP BC 

mossa migliore per il 

17178 

197 



C5 



PtJSH BC 

giocatore. 1 valori sono 

17179 

33 

129 

64 

21 

81 

40 

LD HL. 165113 

quelli indicali dalla 

17182 

9 



09 



ADD HL. BC 

figura 1 

17182 

126 



7E 



LD A. (HL) 


17184 

146 



92 



SUB D 


17185 

198 

20 


C6 

14 


ADD A. 20 


17187 

33 

143 

121 

21 

8F 

79 

LD HL. 31119 


17190 

9 



09 



ADD HL. BC 


17191 

119 



77 



LD (HL). A 


17192 

193 



CI 



POP BC 

carica la casella successiva 

17192 

12 



OC 



INC C 

per l'esame della mossa 

17194 

121 



79 



LD A. C 

e rieffenua il ciclo 

17195 

254 

90 


FE 

5A 


CP 90 

da 17006 

17197 

194 

no 

66 

C2 

6 E 

42 

JP NZ 

17006 

17200 

33 

41 

125 

21 

29 

7D 

LD HL. 32041 

byte di controllo per la 

17202 

54 

0 


36 

00 


LD (HL). 0 

scelta della mossa 

17205 

43 



2B 



DEC HL 


17206 

54 

1 


36 

01 


LD (HL). 1 


17208 

1 

12 

0 

01 

OC 

00 

LD BC. 12 

conirolla che nelle loca- 

17211 

33 

143 

121 

21 

8F 

79 

LD HL. 311 19 

zioni da .11120 a .12219 

17214 

9 



09 



ADD HL. BC 

il valore sia diverso da 

17215 

126 



7E 



LD A. (HL) 

0 e. se si esamina il 

17216 

254 

0 


FE 

00 


CP 0 

dato per la scelta della 

17218 

40 

IO 


28 

OA 


JR Z+10 

mossa 

17220 

33 

41 

125 

21 

29 

7D 

LD HL. 32041 

se late dall) è minore di 

17222 

190 



BF 



CP (HL) 

quello in carico passa al 

17224 

250 

78 

67 

FA 

4E 

43 

JP M. 17228 

successivo 

17227 

119 



77 



LD (HL). A 

carica il dato ed il numero 

17228 

43 



2B 



DEC HL 

della mossa per il successivo 

17229 

113 



71 



LD (HL). A 

confronto 

17220 

12 



OC 



INC C 

carica la casella successiva per 

17221 

121 



79 



LD A. C 

la scelta della mossa 

17222 

254 

90 


FE 

5 A 


CP 90 

e rieffenua il ciclo 

17224 

32 

231 


20 

E7 


JR NZ-25 

da 1720/i ripristina 

17226 

33 

10 

125 

21 

OA 

7D 

LD HL. 32010 

le variabili di controllo 

17229 

54 

1 


36 

01 


LD (HL), 1 

per lo ZX. la matrice 

17241 

33 

20 

125 

21 

14 

7D 

LD HL. 32020 

per la gestione del 

17244 

54 

2 


36 

02 


LD (HL). 2 

gioco allo stato iniziale 

17246 

205 

74 

66 

CD 

4A 

42 

CALL 16970 

e ritorna 

17249 

201 



C9 



RET 



Listato 3. Codici della routine in lin¬ 
guaggio macchina per il secondo li¬ 
vello di gioco. 


Ì&-375). 

* 

33 

LS97Ì 

ss 

100 

15972 

SS 

120 

1.5973 

ss 

1 

16974. 

ss 

10® 

16375 

ss 

© 

16976 

ss 

17 

16977 

ss 

© 

163 76 

ss 

12© 

16979 

ss 

237 

1698© 

ss 

178 

issai 

s: 

201 

15932 

ss 

1 

16963 

ss 

1©8 

16984- 

ss 

© 

16965 

ss 

17 

16986 

ss 

100 

16987 

ss 

12© 

16988 

ss 

33 

16989 

ss 

© 

16990 

ss 

12® 

18991 

ss 

237 

16993 

ss 

176 

16998 

ss 

33 

16934- 

ss 

14-3 

18995 

ss 

121 

16996 

ss 

6 

16997 

ss 

1©0 

16998 

ss 

35 

16939 

ss 

54- 

17000 

ss 

0 

17001 

z 

16 

17002 

ss 

251 

17003 

s 

1 

17004- 

s 

12 

17005 

ss 

8 

17006 

3 

137 

170©7 

s 

205 

17008 

s: 

74- 

17009 

ss 

SS 

1701© 

s 

133 

17011 

s 

197 

17012 

ss 

33 

17013 

ss 

255 

17014. 

s 

119 

17015 

ss 

9 

1701© 

ss 

126 

17017 

ss 

254- 

17018 

ss 

0 

17013 

ss 

194- 

1702© 

ss 

4-0 

17021 

ss 

67 

17022 

ss 

33 

17023 

ss 

© 

17024- 

= 

125 

17025 

ss 

113 

17026 

ss 

33 

17027 

ss 

3® 

1702© 

ss 

125 

17029 

ss 

54- 

17030 

ss 

0 

17031 

ss 

33 

17032 

SI 

10 

17033 

ss 

125 

17034- 

ss 

54- 

17035 

z 

1 

1703© 

ss 

33 

17037 

ss 

2© 

3.7038 


125 


66 























Othello 
per ZX81 


Seguito listato 3. 


17039 

a 

54 

1704-0 

a 

£ 

1704-1 

ss 

2©5 

1704-2 

= 

11 

1704-3 

SS 

68 

17044 

a 

33 

17045 

a 

3© 

17045 

a 

125 

17047 

a 

126 

17048 

a 

254 

17049 

a 

© 

1705© 

a 

£02 

17051 

a 

4© 

17052 

a 

67 

17053 

a 

193 

17054 

a 

197 

17055 

a 

8 

17056 

a 

33 

3 7057 

a 

129 

17058 

a 

S4- 

17059 

a 

9 

17060 

a 

12S 

17061 

ss 

254 

3,7062 

a 

9 

17063 

a 

32 

17064 

a 

9 

17065 

a 

W w 

17SS6 

a 

4© 

1705" 

a 

125 

17065 

a 

"113 

17069 

a 

193 

1707© 

a 

205 

17071 

a 

74 

17072 

a 

66 

17073 

a 

201 

17074 

a 

SS 

17075 

a 

1 

17076 

a 

8 

17077 

a 

© 

17076 

a 

197 

17079 

a 

33 

1700© 

a 

18© 

17051 

a 

65 

17862 

a 

9 

17063 

a 

86 

170S4 

a 

123 

17885 

a 

138 

170S6 

a 

79 

17087 

a 

33 

1-7086 

=*- 

255 

17089 

a 

119 

1709© 

a 

9 

17091 

a 

126 

17092 

a 

254 

17093 

«i* 

1 

17094 

a 

32 

17095 

a 

29 

17096 

a 

121 

17097 

a 

130 

1709S 

a 

79 

17099 

a 

33 

17100 

a 

255 

17101 

a 

119 

17102 

a 

9 

17103 

a 

125 

17104 

a 

254 

17105 

a 

1 

1710© 

a 

48 

17107 

a 

244 

17108 

a 

254 

17189 

a 

2 



Seguito listato 3. 

17180 = 

129 

17181 

a 

64 

17162 

a 

? 

L7163 

s 

12© 

17184 

a 

14© 

17185 

a 

19© 

17186 

a 

20 

17137 

a 

33 

17188 

a 

143 

17189 

a 

121 

17190 

a 

9 

17191 

a 

119 

17192 

a 

193 

17193 

a 

12 

17194 

a 

121 

17195 

a 

254 

17196 

a 

90 

17197 

a 

194 

17198 

a 

11© 

17199 

a 

S© 

17200 

a 

33 

17201 

a 

41 

17202 

a 

125 

172©3 

a 

54 

17204 

a 

0 

17205 

a 

43 

17206 

a 

54 

17207 

a 

1 

17208 

a 

1 

17209 

a 

12 

1721© 

a 

8 

17211 

a 

33 

17212 

a 

143 

17213 

a 

121 

17214 

a 

9 

17215 

a 

126 

17216 

s 

254 

17217 

a 

0 

17218 

a 

40 

17219 

a 

10 

1722© 

a 

33 

1722 1 

a 

41 

17222 

a 


17223 

a 

198 

17224 

a 

25® 

17225 

a 

78 

1722© 

a 

67 

17227 

a 

11© 

1722S 

a 

.43 

17229 

a 

113 

17230 

a 

12 

17231 

a 

121 

17232 

a 

£54 

17233 

a 

90 

17234 

a 

32 

17235 

a 

231 

17236 

a 

-w> 

17237 

a 

10 

17238 

a 

125 

17239 

a 

54 

1724© 

a 

1 

17241 

a 

33 

17242 

a 

2© 

17243 

a 

125 

.17244 

a 

54 

17245 

a 

2 

17246 

a 

235 

17247 

a 

74 

1724© 

a 

©6 

1724 9 


£01 


Seguito listato 3. 


17110 

a 

32 

17111 

a 

13 

17112 

a 

121 

17113 

a 

146 

17114 

a- 

79 

17115 

a 

33 

17116 

a 

255 

17117 

a 

119 

17118 

a 

9 

17119 

a 

54 

17120 

a 

2 

17121 

a 

121 

17122 

a 

187 

17123 

a 

32 

17124 

a 

244 

17125 

a 

193 

17126 

a 

13 

17127 

a 

121 

17123 

a 

254 

17129 

a 

0 

17130 

a 

32 

17131 

a 

202 

17132 

a 

33 

17133 

a 

10 

17134 

a 

125 

17135 

a 

54 

17136> 

a 

2 

17137 

a 

33 

17138 

a 

2© 

17139 

a 

125 

17140 

a 

54 

17141 

a 

3. 

17142 

a 

33 

3.7143 

a 

4® 

17144 

a 

12S 

17145 

a 

54 

17146 

a 

1 

17147 

a 

33 

17148 

a 

3© 

17149 

a 

125 

17150 

a 

54 

3.7151 

a 

1 

17152 

a 

205 

3-7153 

a 

2®S 

17 154. 

a 

65 

17155 

a 

33 

17155 

a 

4© 

17157 

a 

125 

1715S 

a 

128 

17159 

a 

254 

1716® 

a 

1 

17161 

a 

w'Cf 

17162 

a 

s 

17163 

a 

133 

3-7154 

£S 

113 

17165 

a 

195 

17166 

a 

84 

3.7167 

a 

67 

17168 

a 

& 

17169 

a 

& 

17170 

a 

e 

17171 

a 

72 

17172 

a 

33 

17173 

a 

129 

17174 

a 

64 

17175 

a 

9 

17176 

a 

©6 

17177 

a 

193 

17178 

a 

197 

17179 


33 


67 
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Un inseguimento 
mozzafiato 
con lo Spectrum 


di Marcello Morchio 


I l programma che vi propon’ 
go è un gioco, la cui meccani¬ 
ca è molto semplice, ma che 
contiene vari algoritmi interessanti e 
una routine in linguaggio macchina 
tratta proprio da Personal Software. 
Il funzionamento del gioco è molto 
semplice: lo schermo è sempre lo 
stesso e consiste in un campo minato 
circondato dal fuoco. 

Il giocatore comanda un omino che 
appare inizialmente al centro del 
campo mentre nell’angolo in alto a 
sinistra appare un robot rosso che lo 
insegue. Lo scopo del gioco è di fare 
in modo che il robot calpesti il mag¬ 
gior numero di mine possibile e, na¬ 
turalmente senza farsi raggiungere, 
il che comporterebbe la perdita di 
una delle tre vite. Il punteggio viene 
visualizzato solo alla fine del gioco, 
e se è superiore a 1000 (molto diffici¬ 
le) si ha una particolare onorificenza 
che vedremo in seguito. 


Le routine principali 

Le routine principali del pro¬ 
gramma sono 6. 

La prima è come al solito l’inizializ- 
zazione delle variabili, a cui segue 
l’inizializzazione dello schermo che 
in questo caso è particolarmente im¬ 
portante, perché, oltre a stabilire i 
valori per inchiostro, carta e bordo 
(rispettivamente 0,4 e 2), presenta il 
ciclo di posizionamento delle mine e 


la memorizzazione delle loro posi¬ 
zioni. 

Viene poi il loop principale, dove 
viene letta la tastiera, vengono ag- N 
giornate le coordinate dell’omino 
del giocatore e, basandosi su queste 
ultime, viene mosso il robot. Sempre 
in questo loop vengono stampati il 
robot e l’omino e viene controllato 
che quest’ultimo non esca dallo 
schermo o investa una mina. 

Le ultime tre routine riguardano la 
fine del gioco o il lampeggiamento 
dello schermo, e sono le più sempli¬ 
ci, ma sono quelle che chiamano la 
routine in linguaggio macchina già 
accennata, della quale parlerò nel 
prossimo paragrafo. 


La routine in linguaggio macchina 


Questa routine è tratta da Perso¬ 
nal Software n. 5 da “/ segreti dei 
personaF’ dello Spectrum, a pag. 48, 
ma ha subito alcune modifiche. 

Per coloro che non possedessero il 
suddetto numero della rivista vedia¬ 
mo comunque l’uso e la codifica in 
Assembly della routine. 

Essa serve per ottenere il mutamen¬ 
to degli attributi dello schermo sen¬ 
za dover usare CLS, INK, PAPER e 
BORDER. 


La routine lavora nella parte del di¬ 
splay file riservata agli attributi (in¬ 
dirizzi da 22528 a 23296), scrivendo¬ 
vi dentro i valori stabiliti dall’uten¬ 
te, secondo lo schema della funzione 
ATTR ( 128 per il lampeggio (0 se no 
lampeggio) + 64 per la luminosità + 
8 moltiplicato per il valore della car¬ 
ta + il valore dell’inchiostro), 
ld hi, 22528 33 0 88 

ld bc, 704 1 192 2 

ld (hi), 7 54 7 

dee bc 11 

ld a, b 120 

or c 177 


ret z 200 

ine hi 35 

jr, - 8 14 247 

Il “7” della terza istruzione (ld 
(hi), 7) è il valore che può essere 
cambiato per ottenere i vari effetti di 
colore (e lampeggio) secondo lo 
schema già descritto. Esso può esse¬ 
re cambiato facendo una POKE al¬ 
l’indirizzo della prima istruzione + 
7. 

Coloro che hanno già visto questo 
programma su Personal Software, 
noteranno che nella seconda istru¬ 
zione, c’è un 704 invece del 768 del¬ 
l’originale. Questo perché col 768 
veniva colorata anche la parte bassa 
dello schermo (le due linee a disposi¬ 
zione del sistema), mentre col 704 si 
colorano solo le 22 linee usabili di¬ 
rettamente con PRINT. La ragione 
di questo cambiamento è che nel no¬ 
stro caso dando un colore uniforme 
in tutto lo schermo il giocatore 
avrebbe creduto che anche le due 
ultime linee fossero parte del campo 
da gioco, mentre il computer avreb¬ 
be interpretato il fatto come un ten¬ 
tativo di sconfinare dalle 22 linee 
stampabili con gravi conseguenze 
per il giocatore. 


Strategia di gioco 

Un paragrafo come questo sareb¬ 
be più adatto per una rivista come 
Video Giochi più che per Personal 
Software ma già che il gioco c’è tan¬ 
to vale giocarlo bene. 

Come già detto lo scopo del gioco 
e far calpestare le mine dal robot 
nemico; ciò non è solo fatto di fortu¬ 
na, perché, come è logico, il robot 
continua a inseguirci. Quando passa 
su una mina la cancella, e lo scher¬ 
mo ha un “sobbalzo”, ottenuto in¬ 
vertendolo e poi riportandolo alla 
normalità velocemente, natural- 
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mente con l’ausilio della routine in 
linguaggio macchina. Una buona 
strategia può essere quella di, all’ini¬ 
zio della partita, restar fermi e atten¬ 
dere che il robot tolga le mine più 
vicine a noi, perché raramente parte 
subito in rotta di collisione, e rimane 
a “orbitare” con un andamento 
pseudo casuale intorno all’omino. 


Seguendo questa tecnica bisogna 
aspettare che il robot ci sia piuttosto 
lontano prima di partire, perché fa 
presto a correggere la rotta venen¬ 
doci addosso. Durante il gioco capi¬ 
ta che mentre si percorre un tratto in 
linea retta, il robot ci venga talmente 
vicino da sfiorarci ad ogni suo attac¬ 
co, e producendo ogni volta un ef¬ 


fetto come se avesse colpito una mi¬ 
na. Questo è il momento migliore 
per far punti, perché, oltre a pulire le 
mine vicino a noi, il robot ci fa gua¬ 
dagnar punti ogni volta che ci passa 
vicino. Per sfruttare a pieno questa 
situazione bisogna, alla fine del ret¬ 
tilineo, invertire repentinamente la 
direzione quando ci è ancora distan- 

i 


1 Ci_2fiR 3S4SS: LE T r=3249S 

2 FOR i +1 TD >- + 15 
5 RESO Ji> 

S POKE i,I» 

7 NEX'T i 

S DPT fi 33,0,SS,1,192,2,5*,7,1 
t, 120.177,200.35,24. ,24-7 
9 GO SUE S5J3B 

10 L£T X —10 : L£T y =15: LET & =C 
LET b=0 

£0 LET S.X30: LET £, y =0 : LET sa* 
©.■ LET sb=2 

30 LET p*=0: DIH Ti t'S©> : &IM Kf It¬ 


ili LET cambi O--32S00 
S0 LET LET 

60 LET V=3 

200 BOROER 2 : INK 1: PfiPER + ■• 


L£ 


7 : 


.0 POR n=l TO 50. LET n t») «INT 


LET m tn) =INT 

«t n ma ,» ma ; ' 


iRND*3 
O": NE 


TO 300 
LET £• y = - 1 : L 
LET SX=1: LE 
LET ■ L 


LET 


; =1 . 


LE 


> *y +£ y 
1 v.>31 OR y 
LET y=y-s.y 


GO TO 


CRMD+2H +1: 
l.' il : PR XNT 
<T n 

200 r.= IMKEY-p =" " THEN GO 
210 LET a«=IMKEY$ 

22e IF a 4 = "5" THEN 
£T SX50.- LET = 

230 IF THEN 

T =. y =© • LET p $ ="D" 

24.0 IF a$ = "7" THEN 
ET *y=0: LET P 4 = "C 
250 IF 3Ì="S" THEN 
T SX=0: LET p*='B" 

30.0 LET x =x 4+x : LET y = 

320 IF X>21 OR Or 

<0 THEN LET X =x-S.x *2 : 

*2 

315 IF S-X =0 RND sy =0 THEN 
330 

320 IF 5CREEN* (X,y)<>" " THEN 

30 SUB 1000 

330 IF a -X AND y=b THEN GO SUB 
1000 

335 LET h=INT (RND+2) 

3+0 IF b =1 THEN GO TO 350 
350 IF X > a THEN LET sa=l 
355 IF x<a THEN LET £3=-l 
360 IF h=0 THEN GO TO 350 
370 IF y>b THEN LET £b = l 
375 IF y < b THEN LET £.b=-i 
350 LET a=a +sa : LET b=b+sb 
390 LET a=a-(a>21)+ia<0): LET b 
=»b + (b<0) - ( b >31) 

+ 10 IF SCREEN* (a,b) < >" " THEN 
30 SUB S00 

+20 PRINT RT a-5 a, b-sfa;" ";fiT a 
b; INK 2;"F" 

+25 IF £.y, =0 AMD £.y =0 THEN GO TO 
440 

+30 IF SCRSENS 

ìq. sue 1000 . 


vx ,y.» :> 


TfiEi-f 


++0 IF a =X RND y = b THEN GO SUB 
1000 

4*5 PRINT fiT x-s-x , y-sy ; ";fiT x 
,y; INK 0 ;p t 

460 BEEP .01,-10. BEEP .01,10 
465 PRINT fiT 0,0; INK 7;v*< TO 

• ) 

470 GO TO 200 
500 CLS 

510 FOR n =1 TO 117: PRINT "BRRU 
3!"; : BEEP .007,13.• NEXT n 
520 FOR n =0 TO 255: POKE cambio 
+ 7, n 

525 LET i=U3R cambio 
530 BEEP .009,(RND+10)-5 
S+0 PRINT fiT 10,7; FLASH 1; PfiP 
:R 7;"PUNTEGGIO=”;p;fiT 12,6 ;"SEI 
GRftNDE!f" 

550 IF INKEYS<>"" THEN RUN 10 
560 NEXT n: GO TO 520 
600 PRINT fiT X > y; " PRINT fiT 

x-sx,y-sy;" " 

605 PRINT fiT 0,0;" 

610 RETURN 

800 POKE cambi 0+7,7: RfiNDOMIZE 
OSR cambio 
810 LET P=P+21 

820 POKE cambi 0+7,33 . RRNDOHIZE 
USR cambio -. RETURN 

.000 LET V = V — 1 : IF v<>0 THEN LET 
a =0 : LET b = 0: POKE ca»biO+7,7: 
RfiNDOMIZE USR cambio: PRINT PT x 
-sx,y-sy; INK 7; PAPER O;"E": BE 
EP .5,10: POKE cambi 0+7,33: RfiND 
OMIZE USR cambio: GO SUB 600: RE 
7URN 

1005 FOR n =1 TO 3: FOR III =0 TO 7-, 
POKE cambio+7,m 

.010 RfiNDOMIZE USR cambio: BEEP 
01,10: BEEP .01,50 
.020 NEXT m: NEXT n 
1025 IF p>=1000 THEN GO TO 500 
103© PRINT fiT 10,7;. "PUNTEGGIO*" ; 
P 

10+C FOR n =1 TO 7: POKE cambi 0+7 
>n 

1050 RfiNDOMIZE USR cambio 
.060 BEEP . 05 , n 

.07© IF INKEY4 < >"" THEN RUN 10 
'-030 NEXT n : GO TO 1040 
Ì003 FOR n=USR “a" TO USR “f”+7 
S010 REfiD m: POKE n , m 
3020 NEXT n: RETURN 

3030 DfiTfi 24,2*,20,12*,6,20,3 +,I 
38,2+,24,80,62,16,*0,63,195,43,+ 
3,12*,176,56,40,+0,32,60,126,223 
,191,191,223,102,30,17,133,30,*! 

1++,44,57,1*6,60,90,60,231,24,3 
i- , 36 ,102 

)000 CLEfiR : SfiUE "ROBOT" LINE i 


Listato 1. Programma Robot. I caratteri grafici usati sono: “A ” = omino a sinistra; “B” = omino a destra; “C” — omino 
in allo, “D” — mina; “E” = esplosione; “F” — robot. 

Il listato contiene i caratteri grafici originali (prima dell’inizializzazione) per evitare confusione in fase di battitura. 
Ricordarsi di usare il modo grafico (cursore “G”) per inserire le lettere “A”, "B”, “C”, “D”, "E”, “f” (maiuscole) in 
tutte le linee dove compaiono tra apici, isolate o a gruppi di 3. In particolare si faccia attenzione alle linee 50, HO, 220, 
230, 240, 250, 420, 1000. Alla linea 8000 si usino le lettere minuscole normali. 
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• ANTEPRIMA: 
APPLE Ile 
OLIVETTI M 24-21 

• BITEST: 

XEROX 16/8 


• SOFTEST: 
PFS: REPORT 
dGRAPH 


• APPLICAZIONI 
DEL QUICKFILE 



• VISIDEX - 

• IN PROVA: 
PLOTTER ROLAND 



CON INSERTI: 

SUPER BIT RISERVATO PERSONAL 

E 

DIGIDATTICA 
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Robot a caccia 

te, per poi continuare nella stessa 
rotta della andata. Bisogna però 
non far andare troppo per le lunghe 
questa strategia, perché pri|jna o poi 
il robot ci distrugge. 

Altro metodo per far punti è quel¬ 
lo di appostarsi dietro a un grumo di 
mine, in modo che il robot gli passi 
sopra per raggiungerci. 

Se alla fine delle tre vite, il cui nume¬ 
ro è indicato in alto a sinistra con 
degli omini bianchi in fila, il punteg¬ 
gio è superiore a 1000, lo schermo 
viene coperto di scritte “BRAVO!” 
e mentre appare il punteggio lam¬ 
peggiante, le scritte e il fondo cam¬ 
biano colore, luminosità e stato di 
lampeggio, in un sottofondo di sca¬ 
lette musicali. Se invece non si sono 
raggiunti i 1000 punti, il fondo dello 
schermo diventa nero e il colore del¬ 
le scritte oscilla continuamente dal 
nero al giallo. Sempre con un sotto¬ 
fondo di scalette musicali, in ambe¬ 
due i casi il computer aspetta che 
venga premuto un tasto per rico¬ 
minciare da capo il gioco. 

Un altro piccolo consiglio: se la 
perdita di una vita è causata dal ro¬ 
bot non c’è niente da fare ma se la 
causa del decesso è una mina, e se 
dietro a questa mina ce ne sono al¬ 
tre, bisogna cambiare velocemente 
direzione, perché, anche se il robot 
riparte dall’angolo a destra in alto, 
l’omino continua dal posto in cui è 
morto, continuando nella stessa di¬ 
rezione. Un’ultima nota: per eludere 
il robot bisogna ingannarlo con fin¬ 
te veloci, procedendo in modo da 
farsi superare per avere il tempo di 
cambiare direzione mentre è distan¬ 
te. 

Una curiosità: il punteggio viene re¬ 
alizzato anche se il robot urta uno 
degli omini che indicano le vite o 
anche uno dei robot che lascia ai 
bordi oppure quando finisce una 
manche. 

Un’altra particolarità. 

11 nostro omino è sui pattini. Cioè 
appena viene premuto uno dei tasti 
di movimento (5, 6, 7, 8) l’omino 
parte e non si ferma più per tutto il 
resto del gioco. 
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Note al listato 

All’inizio (linee da 1 a 8) viene 
caricata la routine in linguaggio 
macchina (notate che queste linee 
sono le stesse del listato 2 pubblicato 
sul n. 5 di Personal Software e posso¬ 
no essere usate anche da sole per 
caricare la routine). Segue un GO 
SUB 8000 che chiama la routine che 
inizializza i caratteri grafici. Dalla 
linea 10 alla linea 60 troviamo l’ini- 
zializzazione delle variabili princi¬ 
pali. Da notare la variabile “cam¬ 
bio” che contiene l’indirizzo d’inizio 
della routine linguaggio macchina e 
la stringa v$ contenente i tre omini 
che indicano il numero delle vite ri¬ 
maste. 

La linea 100 e la linea 110 inizializ- 
zano lo schermo e stampano le mine 
memorizzando la loro posizione per 
un motivo che vedremo dopo. 

Alla linea 200 inizia il gioco con 
un’istruzione che fa saltare la parte 
che legge la tastiera se non è premu¬ 
to alcun tasto. 

E questo che permette di mantenere 
la stessa direzione se non vengono 
premuti tasti. Si noti che la variabile 
stringa p$ contiene l’omino nelle tre 
posizioni che può assumere a secon¬ 
da del tasto premuto. 

La linea 310 fa scattare indietro 
l’omino se raggiunge i limiti dello 
schermo ma non ne cambia la dire¬ 
zione (il che si può comunque attua¬ 
re aggiungendo alla 310: 

LET sx = — sx : LET sy = — sy). 
Dalla linea 335 inizia la routine che 
fa muovere il robot impazzito. Que¬ 
sta routine è una di quelle apparse su 
Personal Software n. 10-11, nell’ar¬ 
ticolo Giochi di inseguimento. 

Le linee 420 e 445 stampano il robot 
e l’omino nelle loro posizioni (a, b 
per il robot; x, y per l’omino) e degli 
spazi bianchi nelle vecchie coordi¬ 
nate. 

Infine la iinea 470 chiude il ciclo con 
un GOTO 200. 

Dalla linea 500 inizia la routine 
che riempie lo schermo di “BRA¬ 
VO” che si mette in funzione se il 
punteggio è superiore a 1000. La 



routine 600 è una routine “per sba¬ 
glio”, creata per non caricare trop¬ 
po la linea 1000 che esamineremo 
poi. 

Le linee da 800 a 820 fanno fare un 
lampeggio allo schermo se il robot 
calpesta una mina. 

La routine alla linea 1000 è caricata 
tutta su una linea perché è stata fatta 
alla /me della stesura del program¬ 
ma, dopo la decisione di dare all’o¬ 
mino tre vite invece di una, secondo 
l’idea originaria. Cosi la linea 1000 
fa lampeggiare lo schermo quando 
finisce una vita, stampa il carattere 
dell’esplosione, simula l’esplosione 
e riporta al programma principale se 
non sono finite le vite. 

Viene quindi controllato se il pun¬ 
teggio è maggiore di 1000, il che 
comporterebbe un salto alla linea 
500, e dopo viene stampato il pun¬ 
teggio e si attende che venga premu¬ 
to un tasto. 

Dopo la routine che inizializza i 
caratteri grafici si trova la linea 9000 
che salva il programma. 

Eventuali ampliamenti 
del programma 

Ecco finalmente spiegata la ragio¬ 
ne della memorizzazione delle posi¬ 
zioni delle mine: aggiungendo la li¬ 
nea: 

1025 FOR n = 1 TO 60 : PRINT AT 
n (n) m (n); “E” (E grafica, cioè il 
carattere dell’esplosione) : BEEP 
.007, n - 10 : NEXT n 
si ottiene l’esplosione di tutte le mi¬ 
ne alla morte del terzo omino. Fran¬ 
camente non mi sembra molto bello, 
ma con colori opportuni (io uso un 
TV in bianco e nero), si possono 
ottenere effetti interessanti. 

Un’altra modifica potrebbe essere 
di aumentare il numero di mine, 
cambiando tutti i 60 delle linee 30 e 
110 con il numero scelto. Sarebbe 
anche interessante fare una specie di 
labirinto con le mine, anche se oc¬ 
correrebbe modificare molto la par¬ 
te dell’inizializzazione dello scher¬ 
mo, ma si otterrebbe un gioco molto 
nuovo. ■ 
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66 PROGRAMMI PER ZX81 
e ZX80 CON NUOVA ROM 
+ HARDWARE 

Come sfruttare tutte le 
capacità degli ZX e, 
addirittura, moltiplicarle 
144 pag. L. 12.000 
Cod. 520D 

PROGRAMMI 
DI MATEMATICA 
E STATISTICA 

Come acquistare la logica 
necessaria a risolvere con 
metodo, senza perdite di 
tempo, i problemi con il 
calcolatore 
228 pag. I. 16.000 
Cod 552D 

SINFONIA PER UN 
COMPUTER VIC 20 

Imparare divertendosi è la 
prerogativa di questo libro: 
prima giocate e poi date 
un'occhiata ai listati dei 
programmi 
122 pag. L. 10.000 
Cod. 563D 

75 PROGRAMMI IN BASIC 
PER IL VOSTRO 
COMPUTER 

Programmi sperimentati e 
pronti da usare, oppure da 
rielaborare, ampliare, 
modificare, assemblare 
196 pag. L. 12.000 
Cod. 551D 

77 PROGRAMMI 
PER SPECTRUM 

Dalla Grafica alla Business 
Grafica, dalla musica alle 
animazioni, dai giochi 
all'Elettronica ... tutte le 
possibilità offerte dallo 
Spectrum 
150 pag. L. 16.000 
Cod. 555A 
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GIOCHI GIOCHI GIOCHI 
PER IL VOSTRO VIC 20 

Il modo più divertente di 
avvicinarsi al computer. 
Una trentina di giochi per i 
vostro VIC 20 
108 pag. L. 9.000 
Cod. 557D 

PROGRAMMI UTILI 
PER IBM PC 

Oltre 65 programmi 
ampiamente collaudati e 
pronti per l'uso per il 
Personal Computer IBM 
176 pag. L. 15.000 
Cod. 564D 
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200 CALL CLEAR :: CALL SCREEN (15) :: DIM MU (24) 

210 CALL MAGNIFY (2) :: CALL CHAR (132, “60F0F8FCF8F06”, 

133, “OOOOOOF”, 131, RPT$ (“F”, 16), 129, “0”, 130, RPT$ (“0F”, 8)) 
:: CALL COLOR (13, 7, 1) 

220 FOR I = 2 TO 19 :: MU (I) = 2 :: NEXT I 
230 K = 1 :: VE = 12 :: KA = 0 :: COL = 20 
240 J = 0 :: CALL VCHAR (1, COL-1, 32, 24) 

250 FOR I = 2 TO 19 :: IF MU (I) > 0 THEN CALL HCHAR (I, COL, 
129 + MU (I)) :: J = J + 1 
260 NEXT I :: IF J = 0 THEN 370 

270 CALL SPRITE (# 2, 132, 5, 233, 17) :: IF K > 9 THEN K = K - 10 
:: KA = KA + 1 :: CALL SPRITE (# 4, KA + 48, 5, 169, 65) 

280 CALL SPRITE (# 5, K + 48, 5, 169, 81) :: CALL MOTION (# 2, 

VE, 0) 

290 CALL KEY (5, COD, ST) :: IF COD < > 32 THEN 350 

300 CALL POSITION (# 2, RI, CO) :: IF RI > 157 THEN 350 

310 CALL SPRITE (# 3, 133, 5, RI, CO, 0, 90) :: P = INT ((RI + 6)/8) 

+ 1 

320 FOR J = 1 TO 80 + (COL - 20) ★ 10 :: NEXT J 
330 IF MU (P) > 0 THEN MU (P) = MU (P) - 1 :: CALL HCHAR (P, 
COL 129 + MU (P)) :: CALL SOUND (100, - 5, 3) 

340 CALL DEL SPRITE (# 3) 

350 CALL COINC (# 2, 190, 17, 40, S) :: IF S = 0 THEN 290 
360 CALL DEL SPRITE (# 2) :: COL = COL - 1 ★ (COL < 28) :: K = 
K + 1 :: VE = VE - 1 ★ (VE < 18) :: GOTO 240 
370 CALL DEL SPRITE (ALL) :: DISPLAY AT (3, 2) ERASE ALL : 
“MURO ABBATTUTO IN” 

380 CALL SPRITE (# 2, KA + 48, 5, 41, 33, # 3, K + 47, 5, 41, 49) 

390 DISPLAY AT (10, 2) : “TENTATIVI.” :: DISPLAY AT (15, 2) 

BEEP : “VUOI GIOCARE ANCORA ? (S/N)” 

400 CALL KEY (5, COD, ST) :: IF ST = 0 THEN 400 
410 IF COD = 83 THEN CALL CLEAR :: CALL DEL SPRITE (ALL) :: 
GOTO 220 

420 CALL CLEAR :: STOP 


Figura 1. Il listato del programma Darts. 


Utilizziamo gli sprite 
mediante l’Extended 
BASIC 


di Filippo Cerulo 


L a caratteristica forse più 
interessante dell’Extended 
BASIC implementato sul 
TI 99/4A è la possibilità di control¬ 
lare da programma, in modo relati¬ 
vamente semplice, sagome in movi¬ 
mento sullo schermo. Il nome di 
queste sagome è sprite (che tradotto 
in modo letterale significa folletto), 
nome che ne denuncia l’origine es¬ 
senzialmente ludica (nel senso di vi¬ 
deogame). 

In verità poi ci si accorge subito che 
uno sprite può essere molto utile an¬ 
che in applicazioni che col gioco 
hanno poco a che vedere, ma ciò 
non toglie che la prima immagine 
che ci viene in mente è quella dell’a¬ 
stronave che spara agli invasori. 

È meglio dire subito che (a parte il 
nome) i nostri sprite hanno poco in 
comune con quelli del Commodore 
64 e sono fondamentalmente diversi 
dal Player-Missile implementato sui 
computer Atari. Ciò soprattutto per 
una precisa scelta tecnica: niente bit 
da settare con relative PEEK e PO- 
KE, niente mappe di memoria da 
consultare, niente locazioni miste¬ 
riose da scoprire, ma solo sottopro¬ 
grammi su ROM pronti all’uso e di¬ 
rettamente richiamabili da BASIC, 
con eventuale passaggio di parame¬ 
tri. Naturalmente, non tutti possono 
essere d’accordo con questa filoso¬ 
fia, ma mi sembra la scelta più logi¬ 
ca, se consideriamo la struttura del 
computer e soprattutto dell’ottimo 


interprete BASIC. Il rovescio della 
medaglia è una certa lentezza di al¬ 
cune istruzioni, ma niente di irrepa¬ 
rabile. 

D’altronde non si può avere tutto 
dalla vita e dal ... personal. 


Folletti 

Il nostro sprite è una entità indi- 
pendente dal contesto in cui opera. 
Fondamentalmente possiede i se¬ 


guenti attributi: una sagoma, un co¬ 
lore, una posizione, una velocità (se 
è in movimento). E possibile modifi¬ 
care uno qualsiasi di questi attributi, 
indipendentemente dagli altri ed in 
qualunque momento, tramite istru¬ 
zioni dedicate. Possiamo inoltre ri¬ 
levare da programma alcune infor¬ 
mazioni che lo riguardano: la posi¬ 
zione, la sua distanza da un punto 
dello schermo o da un altro sprite, la 
sovrapposizione a punti dello scher¬ 
mo o ad altri sprite. Ogni sprite è 
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identificato da un numero e nelle 
istruzioni che lo riguardano si fa ri¬ 
ferimento all’angolo in alto a sini¬ 
stra della sagoma che lo rappresen¬ 
ta. 

Per uno sprite lo schermo è formato 
da 256 righe e 256 colonne (indicate 
nel manuale col prefisso “dot”), ma 
solo le prime 193 righe sono visua¬ 
lizzabili. 

L’istruzione per far nascere uno 
sprite è: 

• CALL SPRITE (# numero di spri¬ 
te, codice di carattere, colore, riga, 
colonna, [ velocità di riga, velocità 
di colonna ] ); 

• il “numero di sprite” è un intero 
tra 1 e 28 compresi, usato come 
identificatore. In caso di coinciden¬ 
za sullo schermo, lo sprite di nume¬ 
ro inferiore si sovrappone all’altro; 

• il “codice di carattere” è il codice 
ASCII del carattere di cui vogliamo 
che lo sprite assuma la sagoma, cioè 
un intero tra 32 e 143; 

• il colore è il codice del colore che lo 
sprite dovrà assumere (un intero tra 
1 e 16); 

• le “riga, colonna” sono le coordi¬ 
nate della posizione di partenza del¬ 
lo sprite (due interi tra 1 e 256); 

• le “velocità di riga, velocità di co¬ 
lonna” sono opzionali e rappresen¬ 
tano l’eventuale movimento da im¬ 
primere allo sprite. 

(Interi tra — 128 e + 127). 

Il seguente mini-programma crea 
uno sprite con la sagoma del caratte¬ 
re “A” (cod. ASCII 65), di colore 
blu, che si muove in verticale (fer¬ 
mare l’esecuzione con CLEAR): 
200 CALL CLEAR 
210 CALL SPRITE (# 2, 65, 5, 2, 
42, 10, 0) 

220 GOTO 220 

Adesso esamineremo, un po’ più da 
vicino ed uno per uno, gli attributi di 
uno sprite. 

La forma del folletto 

Fondamentalmente, per scegliere 
una sagoma per il folletto si opera 
ridefinendo caratteri in modo usua¬ 


le. Uno sprite può avere quattro 
“grandezze”, in corrispondenza a 
quattro parametri usati nell’istru¬ 
zione: CALL MAGNIFY (parame¬ 
tro). 

In particolare può essere: 

a) di un solo carattere (valore di de¬ 
fault): CALL MAGNIFY (1); 

b) di un solo carattere ingrandito: 
CALL MAGNIFY (2); 

c) di quattro caratteri: CALL MA- 
GNIFY (3); 

d) di quattro caratteri ingrandito: 
CALL MAGNIFY (4). 

Nei casi a) e b) la sagoma dello 
sprite è quella del carattere il cui 
codice compare nella CALL SPRI¬ 
TE, ingrandita o meno. 

Nel seguente programma ridefinia¬ 
mo il carattere “A” come un ometto 
che dopo un po’ diventa più grande 
grazie alla istruzione della riga 240 
(fermare il programma con CLE¬ 
AR): 

200 CALL CLEAR 

210 CALL CHAR (65, 

“1818FF3C3C242424”) 

220 CALL SPRITE (# 2, 65, 5, 2, 
42, 10, 0) 

230 FOR I = 2 TO 1000 :: NEXT I 
240 CALL MAGNIFY (2) 

250 GOTO 250 

Con una CALL MAGNIFY (2) la 
sagoma dello sprite rimane invaria¬ 
ta, ma le sue dimensioni raddoppia¬ 
no, cioè lo spazio occupato è quello 
corrispondente a quattro caratteri. 

Nei casi c) e d), invece, la sagoma 
dello sprite è formata dall’unione di 
quelle di quattro caratteri. In parti¬ 
colare dal carattere specificato nella 
CALL SPRITE e dai tre caratteri 
seguenti, se il codice del primo ca¬ 
rattere (quello specificato) è divisi¬ 
bile per quattro. In caso contrario la 
“conta” comincia col primo caratte¬ 
re, precedente il codice specificato, il 
cui codice sia divisibile per quattro. 
La corrispondenza delle sagome 
procede dall’alto in basso e da 
destra a sinistra. 

Ecco un esempio (fermare il pro¬ 
gramma con CLEAR): 

200 CALL CLEAR 


210 CALL MAGNIFY (3) 

220 CALL SPRITE (# 2, 68, 5, 2, 
42, 9, 0) 

230 FOR I = 2 TO 2000 :: NEXT I 
240 CALL MAGNIFY (4) 

250 GOTO 250 

Nel programma precedente il co¬ 
dice di carattere specificato è 68 
(“D”), che è divisibile per quattro. 
Lo sprite è formato, in sequenza, 
dalle lettere D E F G (codici 68, 69, 
70, 71). 

Per quanto detto prima, sostituendo 
nell’istruzione 220 il codice 68 con, 
ad esempio, 78 (“N”) lo sprite sareb¬ 
be formato dalle lettere L M N O 
(codici 76, >7, 78, 79). 

Risulta adess'o chiaro che per sa¬ 
gome molto elaborate la parte più 
noiosa è quella relativa al calcolo 
degli identificatori esadecimali che 
devono ridefinire i caratteri. Fortu¬ 
natamente esistono in commercio 
programmi chiamati Sprite Edi¬ 
tor) che sollevano da questa in¬ 
combenza rendendo anzi questa fa¬ 
se addirittura divertente. Nel prossi¬ 
mo numero di Personal Software 
presenteremo proprio un potente 
Sprite Editor, che potrete utilizzare 
per definire i vostri caratteri. Per 
ultimo diciamo che si può modifica¬ 
re la sagoma di uno sprite da pro¬ 
gramma, senza toccare le altre ca¬ 
ratteristiche, con l’istruzione: 
CALL PATTERN (# numero di 
sprite, codice di carattere) 
dove il “numero di sprite” è quello 
dello sprite che vogliamo modificare 
ed il “codice di carattere”, secondo 
quanto detto prima, è un intero tra 
32 e 143 che si riferisce alla nuova 
sagoma. Provate ad aggiungere le 
seguenti linee al programma prece¬ 
dente ed osservate i risultati. 

245 FOR I = 2 TO 2000 :: NEXT I 
247 CALL PATTERN (# 2, 84) 

Il colore del folletto 

I colori disponibili sul TI 99/4A 
sono sedici, identificati da numeri 
interi a partire da uno. Di solito, di 
un insieme di caratteri si può sceglie- 
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re sia il colore del carattere (fore- 
ground) sia quello dello sfondo 
(background). Il colore standard 
dello sfondo per uno sprite è “tra¬ 
sparente” (cod. = 1) e non può esse¬ 
re modificato. Possiamo invece sce¬ 
gliere il colore del folletto attraverso 
il codice-colore appropriato nella 
CALL SPRITE e modificarlo in 
qualunque momento con l’istruzio¬ 
ne: 

CALL COLOR (# numero di spri¬ 
te, codice-colore) 

La posizione del folletto 

Lo schermo del 99 è formato da 
24 righe e 32 colonne. Dato che ogni 
carattere viene formato su una gri¬ 
glia di 8 x 8 pixel, l’intero schermo 
comprende 192 x 256 pixel. Quando 
ci riferiamo ad uno sprite, la posi¬ 
zione sullo schermo è riferita al pi¬ 
xel; il video è formato da 256 pi- 
righe (di cui le prime 192 visibili) e 
da 256 pi-colonne. Le righe sono 
numerate, a partire da uno, dall’alto 
in basso, le colonne da destra a sini¬ 
stra. Ad esempio, se vogliamo posi¬ 
zionare uno sprite sulla riga 15 e 
sulla colonna 6, dovremo specificare 
una pi-riga uguale a 113 ed una pi- 
colonna uguale a 4L La relazione è 
infatti: 

pi-riga = (riga ★ 8) - 7 
e ciò vale anche per le colonne. La 
posizione di partenza per un folletto 
è quella specificata nella CALL 
SPRITE, riferita all’angolo in alto a 
sinistra della sagoma che lo defini¬ 
sce. 

La posizione può essere modificata 
con una istruzione del tipo: 

CALL LOCATE (■# numero di spri¬ 
te, pi-riga, pi-colonna) 

Il breve programma che segue 
muove a caso uno sprite sul video, 
mostrando le coordinate della posi¬ 
zione. Notate che se il numero di 
pi-riga generato è maggiore di 192, 
lo sprite non è visibile (fermate il 
programma con CLEAR). 

200 CALL CLEAR :: RANDOMI- 
ZE 


210 CALL MAGNIFY (3) :: CALL 
SPRITE (# 2, 80, 2, 200, 2) 

220 RI = INT (RND ★ 256) + 1 :: 
CO = INT (RND ★ 256) + 1 
230 DISPLAY AT (2, 1) SIZE (12) : 
“RIGA RI 

240 DISPLAY AT (2, 16) BEEP : 
“COLONNA CO 
250 CALL LOCATE (# 2, RI, CO) 
260 FOR I = 2 TO 1500 :: NEXT I 
270 GOTO 220 


Il movimento del folletto 

Il movimento di uno sprite è il 
risultato della somma vettoriale di 
due grandezze: la velocità di riga e la 
velocità di colonna. Esse sono rap¬ 
presentate da numeri interi compre¬ 
si tra — 128 e + 127. Se assumiamo 
l’origine di un piano cartesiano in 
alto a sinistra dello schermo, con 
l’asse delle ascisse orientato verso il 
basso e quello delle ordinate da sini¬ 
stra verso destra, la velocità di riga è 
la componente della velocità secon¬ 
do l’asse “x” e la velocità di colonna 
la componente secondo l’asse “y”. 
In altre parole, una velocità di riga 
positiva muove lo sprite verso il bas¬ 
so, una velocità di colonna positiva 
muove lo sprite verso destra e vice¬ 
versa. 

Queste caratteristiche risultano 
utilissime quando si voglia ad esem¬ 
pio simulare, limitandosi al primo 
quadrante, il moto di un punto ma¬ 
teriale soggetto a forze. L’istruzione 
per modificare la velocità di uno 
sprite è: 

CALL MOTION (# numero di spri¬ 
te, velocità di riga, velocità di colon¬ 
na) 

Il seguente programma muove a ca¬ 
so uno sprite, mostrando i valori 
relativi della velocità (fermare il 
programma con CLEAR): 

200 CALL CLEAR :: RANDOMI- 
ZE 

210 CALL SPRITE (# 2, 65, 2, 3, 3) 
220 VR = INT (RND ★ 256) - 128 : : 
VC = INT (RND ★ 256) - 128 
230 DISPLAY AT (2, 2) : “VELO¬ 
CITA’ DI RIGA VR 



240 DISPLAY AT (4, 2) BEEP : 
“VELOCITA’ DI COLONNA 
VC 

250 CALL MOTION (# 2, VR, VC) 
260 FOR I = 2 TO 2000 :: NEXT I 
270 GOTO 220 

Uno sprite si ferma con una istruzio¬ 
ne del tipo: 

CALL MOTION (# numero di spri¬ 
te, 0, 0) 

A velocità molto basse o molto alte 
lo sprite si muove in modo quasi 
perfetto. A velocità medie si nota 
qualche sobbalzo, ma il risultato è 
comunque ottimo. A velocità molto 
alte una sagoma perde qualcosa in 
definizione (è una questione ottica): 
in questi casi è bene scegliere per lo 
sprite un colore che sia ben visibile 
sullo sfondo. 


Le informazioni sul folletto 

L’Extended BASIC è dotato di 
una serie di istruzioni che permetto¬ 
no di controllare la “vita” di uno 
sprite. Vediamole un po’ in detta¬ 
glio. L’istruzione: 

CALL POSITION (# numero di 
sprite, pi-riga, pi-colonna) 
serve a determinare la posizione di 
uno sprite nel preciso istante in cui 
viene eseguita. I valori ritornati nel¬ 
le variabili numeriche “pi-riga” e 
“pi-colonna” sono, alla luce di 
quanto finora detto, numeri interi 
tra 1 e 256. Ad esempio l’istruzione: 

CALL POSITION (# 2, RI, CO) 
fa assumere alle variabili RI e CO i 
valori delle coordinate della posizio¬ 
ne attuale dello sprite numero 2. 
L’istruzione: 

CALL COINC (# numero di sprite, 
pi-riga, pi-colonna, tolleranza, va¬ 
riabile numerica) 

serve a verificare la sovrapposizione 
di uno sprite ad una posizione dello 
schermo. La posizione è quella iden¬ 
tificata dalle variabili “pi-riga” e 
“pi-colonna”. La “tolleranza” è il 
valore numerico dello scarto massi¬ 
mo consentito; il valore che assume 
la “variabile numerica” è zero se 
non c’è sovrapposizione, — 1 in caso 
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contrario. L’istruzione può anche 
essere utilizzata nelle forme: 

a) CALL COINC (# numero di 
sprite, # numero di sprite, tolleran¬ 
za, variabile numerica) 

b) CALL COINC (ALL, variabile 
numerica) 

Nella forma a) riporta la sovrap¬ 
posizione di due sprite identificati 
dai rispettivi numeri. Nella forma b) 
riporta qualunque sovrapposizione 
di due o più sprite tra quelli utilizza¬ 
ti. 

Una CALL COINC è attiva solo 
quando viene eseguita: nessuna so¬ 
vrapposizione viene rilevata, se il 
computer sta eseguendo altre istru¬ 
zioni. Ciò costringe a porre molta 
attenzione nel suo utilizzo, come ve¬ 
dremo in dettaglio nel seguito. 

Infine l’istruzione: 

CALL DISTANCE (# numero di 
sprite, # numero di sprite, variabile 
numerica) 

ritorna nella “variabile numerica” il 
quadrato della distanza tra due spri¬ 
te, calcolato applicando il ... teore¬ 
ma di Pitagora e riferito al pixel in 
alto a sinistra delle sagome. Questa 
istruzione può essere anche usata 
nella forma: 

CALL DISTANCE (# numero di 
sprite, pi-riga, pi-colonna, variabile 
numerica) 

in questo caso la distanza calcolata è 
quella fra lo sprite e la posizione 
dello schermo specificata dalle va¬ 
riabili “pi-riga” e “pi-colonna”. 

La morte del folletto 

Uno sprite si cancella con l’istru¬ 
zione: 

CALL DEL SPRITE (# numero di 
sprite) 

che può essere utilizzata anche nella 
forma: 

CALL DEL SPRITE (ALL) 

In quest’ultimo caso vengono can¬ 
cellati tutti gli sprite usati in prece¬ 
denza. Se il “numero di sprite” è 
quello di uno sprite non definito, il 
computer non segnala l’errore; que¬ 
sta caratteristica è utile in molti casi. 



Note generali di utilizzo 

Quanto detto finora può indurre 
a pensare che sia estremamente faci¬ 
le scrivere questo tipo di program¬ 
mi. In effetti, le istruzioni a disposi¬ 
zione sono molte e ben “pensate”, 
tali cioè da eliminare molti proble¬ 
mi. In realtà, per applicazioni in cui 
la velocità è essenziale le cose si 
complicano molto e a volte bisogna 
rinunciare a qualcosa per ottenere 
buoni risultati. Il difetto più grande 
è la relativa lentezza dell’interprete 
BASIC. Questo significa che già per 
velocità di grandezza intorno a 20 
accade che: 

• una CALL POSITION ritorna 
una posizione di qualche attimo in¬ 
dietro rispetto alla realtà; 

• una sovrapposizione non viene ri¬ 
levata, anche se esiste, se non per 
valori di tolleranza abbastanza alti; 

• in caso di IF ... THEN, ogni istru¬ 
zione eseguita in più fa perdere il 
sincronismo delle azioni. 

Per questi motivi la stesura di pro¬ 
grammi sufficientemente veloci co¬ 
stringe in genere a veri e propri salti 
mortali, come ad esempio: 

• uso abbondante ed indiscriminato 
di GOTO, che tolgono in pratica 
ogni pretesa di eleganza e leggibilità 
al listato; 

• ricorso ad espedienti per verificare 
le sovrapposizioni, perché una 
CALL COINC è praticamente inu¬ 
tilizzabile; 

• riduzione all’osso degli effetti di 
contorno (ad esempio suoni, ecc.): 
ogni istruzione in più è un problema 
in più. 

Il metodo probabilmente più effica¬ 
ce, dopo aver sviluppato l’algoritmo 
di movimento, è quello di affinare 
sul campo il programma, scegliendo 
alla fine i valori migliori per i para¬ 
metri in gioco: velocità, posizione, 
tolleranze. Infatti, in pratica è im¬ 
possibile sapere in anticipo, senza 
far girare il programma, cosa succe¬ 
derà sullo schermo. Il breve pro¬ 
gramma che segue è una esemplifi¬ 
cazione degli argomenti trattati fi¬ 
nora. Il listato è volutamente ridotto 


all’essenziale per permettere ad 
ognuno di voi di modificarlo a piaci¬ 
mento. Fate particolare attenzione 
alle tecniche utilizzate per ottenere 
certi risultati: con un po’ di pratica 
vi accorgerete che tutto, entro certi 
limiti, può essere fatto. 

Darts 

Il gioco è molto semplice: avete 
un “lanciadardi” che si muove sulla 
sinistra dello schermo dall’alto in 
basso e spara quando premete la 
barra spaziatrice. Bisogna abbattere 
un muro di 18 mattoni. Ad ogni pas¬ 
saggio il muro si allontana verso de¬ 
stra e la velocità del lanciadardi 
aumenta. Un mattone, per essere 
distrutto, deve essere colpito due 
volte. Vince chi abbatte il muro nel 
minor numero di passaggi. Anche se 
relativamente poco complesso, il 
gioco, nell’esecuzione, è abbastanza 
difficile. Diciotto passaggi è già un 
buon risultato e sfido chiunque a 
farcela in meno di quattrodici. La 
situazione del muro è memorizzata 
nel vettore MU (24). Le istruzioni di 
movimento degli sprite sono state a 
lungo testate per cercare il valore 
migliore per i parametri in gioco. Si 
è verificato, infatti, che una velocità 
del lanciadardi maggiore di 18 fa 
“saltare” la verifica dei passaggi. In¬ 
fine la tecnica usata per visualizzare 
numeri o lettere di grandezza dop¬ 
pia può esservi utile in altri pro¬ 
grammi. 

Vi consiglio perciò di modificare 
il listato secondo i vostri gusti, ma¬ 
gari aggiungendo una sigla ed un 
diverso sistema per il punteggio. Vi 
accorgerete che non è poi così diffi¬ 
cile costruire da soli giochi anche 
molto complessi: basta un po’ di 
pratica ed un buon “rodaggio” del 
programma. 

Buon lavoro !!!!! 

Commenti al programma Darts 

200 - 210 Scelta del colore dello 
schermo (grigio). Definizione dei 
caratteri grafici secondo le seguenti 
corrispondenze: 129 = spazio; 130 = 
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mezzo mattone; 131 = mattone; 132 
= lanciadardi; 133 = dardo. 

220 Valori iniziali del muro, rappre¬ 
sentato dal vettore MU (24). In par¬ 
ticolare il valore due significa “mat¬ 
tone intero”, uno mezzo mattone, 
zero nessun mattone. 

230 Valori iniziali delle variabili. K è 
il valore delle unità e KA quello del¬ 
le decine del numero di passaggi ef¬ 
fettuati. VE è la velocità del lancia- 
dardi, COL è la posizione del muro. 
240 - 260 La variabile J controlla la 
fine del gioco (J = 0). 

Si stampa la situazione attuale del 
muro. 

270 Lo sprite n. 2 è il lanciadardi. Si 
stampa il valore delle decine del nu¬ 
mero dei passaggi (sprite n. 4). 

280 Si stampa il valore delle unità 
del numero dei passaggi (sprite n. 5). 
Si imprime velocità al lanciadardi. 
290 Verifica se è stata premuta la 
barra spaziatrice (codice ASCII 32). 
300 In caso affermativo controlla la 
posizione del lanciadardi: se è trop¬ 
po vicino al bordo inferiore dello 
schermo, non spara. 

310 Crea e muove il dardo verso il 
muro. Calcola la posizione del muro 
da controllare. 

320 Ciclo di ritardo variabile che 
permette al dardo di raggiungere il 
muro. 

330 Controlla se un mattone è stato 
colpito ed aggiorna la situazione del 
muro. 

340 Cancella il dardo. 

350 Verifica se il lanciadardi ha rag¬ 
giunto la base dello schermo. 

360 In caso affermativo calcola i 
nuovi valori delle variabili ed il ciclo 
ricomincia. Notate che il valore logi¬ 
co “vero” sul 99 è rappresentato da 
— 1. Perciò la velocità del lanciadar¬ 
di sarà al massimo 18 e la posizione 
del muro non supererà la colonna 
28. 

370 - 390 Se il gioco è finito, stampa 
il numero dei tentativi e chiede se si 
vuole continuare. 

400 - 410 Ciclo di attesa della rispo¬ 
sta. Se il tasto premuto è “S” (codice 
ASCII 83) si ricomincia. 

420 Fine programma. ■ 




VOI 

E L INFORMATICA 


Libri 

firmati JACKSON 



Nicole Bréaud-Pouliquen 
LA PRATICA DELL APPLE 

"Il Sistema APPLE II", il "BASIC Applesoft" 
il disegno e la grafica: arricchiti da esempi e esercizi. 
130 pagine L. 10.000 
Codice 3410 

F. Franceschini - F, Paterlini 
Voi a il vostra Commodoro 64 

Uno strumento fondamentale per la comprensione e 
programmazione del Commodore 64. Con consigli, 
programmi testati, glossario e utili accenni di BASIC. 
256 pagine B L. 22.000 iCodice 347 

Alan Miller 

PROGRAMMI SCIENTIFICI IN PASCAL 

Un'opera base per chi desidera costruirsi una 
"libreria” di programmi in grado di risolvere i più 
frequenti problemi scientifici e ingegneristici. 

372 pagine L. 25.000 
Codice 554P 

Carmine Elefante 
L'fiome computer TI/9S-4A 

Il BASIC, il BASIC Esteso e il microprocessore 
delthome computer della T.l. Con programmi di 
utilità e svago. 192 pagine L. 15.000 
Codice 343 B 

Giacomino Baismi - Giò Federico Baglioni 

IL F0RTH PER VIC 20 E CBM 64 

' La programmazione in F0RTH e la sua 
implementazione sul Commodore VIC 20 e CBM 64. 
150 pagine L. 11.000 
Codice 527B 


Franco Filippazzi - Giulio Occhini 

VOI E L'INFORMATICA 

L’opera che il manager moderno non può ignorare. 
In 100 tavole: gli strumenti dell'Informatica, 
l'Informatica e l'Azienda, realtà e prospettive 
tecnologiche... 

116 pagine L. 15.000 
Codice 526A 

Roland Dubois 

CAPIRE I MICROPROCESSORI 

Un fantastico viaggio alla scoperta del "cervello" 
elettronico: la funzione del microprocessore, 
delle memorie ROM e RAM, delle interfacce... 

126 pagine L. 10.000 
Codice 342A 

Gaetano Marano 
77 PROGRAMMI PER SPECTRUM 

Dalla Grafica alla Business Grafica, dalla musica 
alle animazioni, dai giochi all'elettronica... tutte 
le possibilità offerte dal più piccolo dei computer. 
150 pagine a colori L. 16.000 
Codice 555A 

Rita Bonelli-Daria Gianni 
ALLA SCOPERTA DEL VIC 20 

Un testo chiave per imparare a conoscere e usare 
uno dei Personal del momento. 

308 pagine L. 224)00 
Codice 3380 

Cassetta Programmi L. 15.000 
Floppy Programmi L. 25.000 


La Biblioteca che fa testo 

In busta chiusa, e senza impegno, inviate questo coupon a: 

Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 

□ Desidero ricevere gratuitamente il Catalogo Generale della Biblioteca 
Jackson e informazioni sulle 10 Riviste specialistiche da voi pubblicate. 

(allego L. 1 OOOìn francobolli per contributo spese di spedizione) 

□ Desidero ricevere contrassegno il/i volume/i 


(pagherò al ricevimento L.. 

più L. 2.000 per contributo spese di spedizione 


Nome. 
Via_ 


.Cognome. 


CAP. 


. Città. 


79 


nuovidea 


































DAL TRANSISTOR 
AL MICROPROCESSORE 

La moderna circulteria a 
stato solido, la sua 
evoluzione, le sue 
prospettive. 

80 pag. L. 7.500 
Cod. 141A 


LA SOPPRESSIONE 
DEI TRANSITORI 
DI TENSIONE 

Cause, effetti, rimedi ai dan¬ 
neggiamenti, dei transitori 
d’alta tensione. 

224 pag L. 12.000 
Cod 611H 


MANUALE 

DI OPTOELETTRONICA 

Valido supporto per i proget¬ 
tisti elettronici. Questo ma¬ 
nuale si compone di nume¬ 
rosi fogli-dati, guide di scelta 
e tabelle comparative. 

208 pag. L. 15.000 
Cod. 613P 


La Biblioteca 
che fa testo 


CAPIRE 

I MICROPROCESSORI 

Spiegazione in forma chiara 
e dettagliala di come funzio¬ 
nano i microprocessori, le 
memorie ROM, RAM e le in¬ 
terfacce. 

126 pag. L. 10.000 
Cod. 342A 


MICROPROCESSORI 
AL SERVIZIO 
DEL MANAGEMENT 

CAD/CAM e robotica la loro 
applicazione in Azienda, 
l’impatto su qualità e produt¬ 
tività, le prospettive. 

292 pag. L. 20.000 
Cod. 335H 


LE COMUNICAZIONI 
RADIO IN MARE 

Come orientarsi grazie alla 
moderna strumentazione e 
ai suoi codici. 

200 pag. L. 15.000 
Cod. 706A 


ELEMENTI 

DI TRASMISSIONE DATI 

Un valido ausilio per tecnici 
e studenti che vogliono ap¬ 
profondire le tecniche di co¬ 
municazione. 

178 pag L. 10.500 
Cod 316D 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGUATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 














Totale 


Q Pagherò contrassegno ai postino II prezzo indicato più L. 2000 per contributo fleto 
spese di spedizione 

Condizioni di pagamento con esenzione del contributo spese di spedizione: 

O Allego assegno delia Banca □ Allego fotocopia del versamento 

su c/c n 11666203 a voi intestato 

□ Allego fotocopia di versamento 

n*-su vaglia postale a voi intestato 


GRUPPO 

EDITORIALI 

JACKSON 


Attenzione compilare per intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


Cognome 


Città 


Dota 


Firma 


Spazio riservato elle Aziende. Si richiede l'emissione di fattura 

MW A I I I ì I 1 I I I I M 


ORDINE 
MINIMO 
L. 50.000 


Libri firmati JACKSON 












































Othello -Reversi 
per VIC 20 e C 64 


Se pensate che sia poco 
originale, leggete fino 
in fondo! 


di Alessandro Guida 


Il gioco 

O thello, noto anche col nome 
di Reversi, è uno dei giochi 
che più si prestano all’imple- 
mentazione su computer ed allo 
stesso tempo uno dei più affascinan¬ 
ti giochi da scacchiera. 

Prima di analizzarne la realizzazio¬ 
ne su VIC (senza espansioni) o C 64, 
due parole sul gioco per chi non lo 
conosce. 

Due giocatori (Bianco e Nero) si 
fronteggiano su una scacchiera da 8 
x 8. Entrambi hanno 32 pedine da 
un lato bianche e dall’altro nere. I 
giocatori usano le pedine dal lato del 
proprio colore. 

In partenza, al centro della scac¬ 
chiera (figura 1), ci sono 4 pedine 
(due per giocatore). A turno i gioca¬ 
tori pongono una pedina sulla scac¬ 
chiera, a condizione che questa cat¬ 
turi almeno una pedina avversaria. 
Deve, cioè, effettuare una presa. 
Per catturare una o più pedine del¬ 
l’avversario, bisogna che queste sia¬ 
no comprese tra la nuova pedina ed 
una già presente sulla scacchiera ma 
dello stesso giocatore di turno. 

Può accadere che in un solo turno si 
catturino più pedine in direzioni di¬ 
verse, ma con in comune la pedina 
appena aggiunta sulla scacchiera. 
Tutte le pedine “mangiate” vanno 
capovolte (cioè occorre cambiare il 
colore), e diventano del giocatore 
che ha effettuato la mossa. Dall’o¬ 
perazione di capovolgimento il gio¬ 
co ha preso anche il nome di Reversi. 
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*CTU>= 2 OC ICO— 2 
mnfwm m.m.rsum a orBssssrsnra 
PER PASSARE ^ R ' 


Un esempio di questa operazione 
è visualizzato nelle figure 2-3 e 4. 
Se non è possibile effettuare una 
presa, si rinuncia al proprio turno. 
La partita termina quando sono sta¬ 
te depositate tutte le 64 pedine, o se 
uno dei due giocatori non ha più 
pedine del proprio colore sulla scac¬ 
chiera o se entrambi i giocatori ri¬ 
nunciano alla mossa perchè non è 
possibile catturare alcuna pedina. 


Implementazione dei giochi 
da scacchiera 

Il flusso di un gioco classico (da- 


Figura 1. Posizione iniziale della 
scacchiera per il gioco Othello. 

ma, scacchi, othello, ecc.) si può ri¬ 
assumere nei seguenti punti: 

1) ricevi mossa dall’avversario; 

2) controllane la validità ed esegui¬ 
la; 

3) cerca tutte le mosse possibili; 

4) scegli quella migliore; 

5) esegui la mossa scelta. Se la par¬ 
tita non è terminata torna al 
punto 1; 

6) decreta il vincitore. 

Tutte queste operazioni si prestano 
bene ad essere eseguite dal computer 
in quanto molto ripetitive. Ma na¬ 
scono dei problemi al punto 4, 
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quando si tratta di scegliere la mossa 
migliore. 

Evidentemente, la bravura di un 
giocatore sta nella sua capacità di 
scegliere in ogni momento la mossa 
migliore. 

Perciò, per mettere il computer in 
grado di giocare in maniera non ca¬ 
suale, è necessario trovare un algo¬ 
ritmo in grado di valutare la situa¬ 
zione della scacchiera, e decidere se 
questa è favorevole o no. 

Un algoritmo di tale genere è detto 
“funzione euristica”. 

Generalmente, però, un algoritmo, 
per quanto buono sia non garantisce 
la scelta della migliore mossa in as¬ 
soluto. 

Accade, infatti, che un momentaneo 
vantaggio si tramuti in seguito in 
una sconfitta, come avviene, ad 
esempio, spesso negli scacchi. 

Per risolvere questo problema si 
fa ricorso alle strutture ad albero. 
Partendo dalla situazione della scac¬ 
chiera si prendono in considerazio¬ 
ne tutte le mosse possibili. Per ognu¬ 
na di queste mosse si analizzano, 
poi, tutte le possibili mosse di rispo¬ 
sta dell’avversario, e per ogni rispo¬ 
sta tutte le ulteriori mosse possibili 
per il computer, e così via. 
Sapremo così per ognuna delle mos¬ 
se a cosa si va incontro in futuro. 
Inoltre, più si esplora l’albero delle 
possibili situazioni in profondità più 
sarà attendibile, alla fine, la scelta 
della mossa. 

Purtroppo, questo sistema ci è 
precluso dalla lentezza del BASIC 
per cui dovremo concentrarci nella 
ricerca di una funzione euristica ab¬ 
bastanza valida. 


La strategia di gioco 

Per realizzare un algoritmo effi¬ 
ciente ho tenuto presente alcune re¬ 
gole che, dopo un paio di partite, 
appariranno molto importanti an¬ 
che a voi. 

1) La mossa è tanto migliore quante 
più sono le pedine catturate all’av¬ 
versario. 
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Figura 2. Posizione della scacchiera prima della mossa dell’avversario. 
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Figura 3. L'avversario ha posto la sua pedina in 2, 1. 
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Figura 4. Situazione della scacchiera dopo avere capovolto tutte le pedine 
catturate. 


2) La regola 1 non è sempre vera, 
poiché vi sono situazioni in cui è 
preferibile mangiarne meno ed oc¬ 


cupare posizioni più sicure sulla 
scacchiera. 

3) Infatti, una pedina posta al centro 
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della scacchiera sarà vittima di ripe¬ 
tuti capovolgimenti, in quanto facil¬ 
mente attaccabile da tutte le direzio¬ 
ni. Al contrario le caselle ai vertici 
della scacchiera sono sicurissime 
perchè inattaccabili. Ecco i valori 
che ho assegnato alle caselle della 
scacchiera: 

53333335 
3 1 2 2 2 2 1 3 

3 2 1 2 2 1 2 3 

3 2 2 1 1 2 2 3 

3 2 2 1 1 2 2 3 

3 2 1 2 2 1 2 3 

3 1 2 2 2 2 1 3 

53333335 

Per conoscere l’efficacia di una mos¬ 
sa basta sommare i valori delle pedi¬ 
ne interessate. Più è alto il punteg¬ 
gio, migliore è la mossa. 

4) Il punteggio calcolato al punto 3 
va diminuito se in una direzione do¬ 
po la nostra pedina ce n’è una del¬ 
l’avversario. Ad esempio in figura 2, 
serve a ben poco mettere una pedina 
nera in 2, 3 se, poi, il computer può 
mettere la sua bianca in 1,3 ripren¬ 
dendosi tutte le pedine toltegli al 
turno precedente. 

Nella realizzazione pratica del 
programma ho trascurato il punto 4 
per permettere al programma di gi¬ 
rare anche sul VIC inespanso. È sta¬ 
ta, invece, aggiunta la scelta casuale 
della mossa da eseguire nel caso di 
due o più mosse con lo stesso valore. 
In questa maniera si evita la ripeti¬ 
zione delle stesse situazioni. 

Se avete abbastanza spazio in me¬ 
moria potete provare ad aggiungere 
il controllo descritto al punto 4. Po¬ 
tete anche variare i valori assegnati 
alle caselle della scacchiera. Sicura¬ 
mente, cambiando combinazioni il 
computer diventa più o meno diffi¬ 
cile da sconfiggere. 

Il programma 

Per memorizzare la scacchiera è 
stato utilizzato un vettore di 72 ele¬ 
menti. Ogni riga è composta da 9 


MODIFICHE PER IL C 64 


Per far girare il programma Othello su di un C 64 è necessario modificare 
le linee I, 32, 34, 52 e 94 come segue: 

1 R=RND(-TI):POKE54296,15:WS=54272:POKEWS+5,9: 

POKE WS+6,0:GOTO 109 

32 FORI=0TO50:POKEWS+0,20:POKEWS+l,l 17:POKEWS+4,33: 
NEXT:GOTO109 

52 POKEWS-K),81:POKEWS+l,7:POKEWS+4,33 
94 POKEWS+0,20:POKEWS+4,33:FORM=0TO7:FORN=ITO8 


Poco prima di consegnare questo articolo, ho provato a far giocare due 
computer ad Othello. In uno (A) ho introdotto il programma del listato 

Nell’altro (B) ho caricato lo stesso programma ma ho cambiato i data in: 


105 

DATA 

9,5,5,5 

106 

DATA 

5,1,3,3 

107 

DATA 

5,3,1,3 

108 

DATA 

5,3,3,1 


Su 6 partite B ne ha vinte 4, 1 è finita pari, e l’altra l’ha vinta A. Conviene 
quindi usare quest’ultimo gruppo di data al posto di quelli che appaiono 
nel listato 1. 

Provate anche voi a mettere il vostro computer contro quello di un vostro 
amico, ognuno con i suoi “data segreti”. 



Tabella 1. Valori da sommare al nu¬ 


mero dell’elemento del vettore per 
spostarsi da una casella ali altra. 


Listato 1. Il programma Othello 
versione VIC 20. 



Tabella 2. Corrispondenza tra gli ele¬ 
menti del vettore e le caselle della 
scacchiera. La prima colonna contie¬ 
ne gli elementi che indicano il limite 
della scacchiera. 


1 R«RND <-TI) ; P0KE36S78.13:GOTO109 

2 DIMSX<7n,RH<e:>,KX<71> 

3 F0RCL“lT08REflDQ:NEXT 

4 FORR-0TO3:FORCL-1T04 

3 N-R*9+CL:READQ:KXCN)-Q:KX(72-N>-Q 

6 N“<7-R)#9+CL : KX(N>»Q : N»R*9+9-CL : KX<N>»Q 

7 NEXTCL,R 

8 SX<31> —1 :SX<41>~1 S?i<32>—2:SX<40>—2-PC-2 PFI-2 

9 i 1 

11 FORI=0TO7 :sx< 1*91 = 1 : NEXT 

12 PRINT"niNI 2 I TU?<SXN>" 

13 GETfi*: IFA*-’"'THEN13 

14 PRINT''n" :G0SUB92 
13 IFR*=»”S"THEN33 

16 IFPfì/2>=PCTHENPRINTI*SPRINT" m SONO NEI DURI ! **"G0T019 

17 IFPC/2>»PRTHENPRINTI* PRINT"SMOBESTRMENTE VINCO*" : DOTO19 

18 PRI NT I * : PRI NT " BW( STO PENSANDO! **" 

19 00SUB37 

20 I FCO0THENMO=MO+1 : K-C : G— 1 : JP-0 : G0T023 

21 IFJP-1THEN29 

22 PRINTI* 

23 PRINT" SPASSO* 

24 FORI=1TO1300 : NEXT : GQT033 

25 PRINTI* 

26 PRINT"SLA MIA MOSSA “* ■■■!" ; K-INT<K/9>#9; ", " J INTCK/95 + 1 

27 G0SUB73 

28 IFMO<C60RNDPfi>0THEN33 
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elementi contigui del vettore; il pri¬ 
mo elemento contiene 1 per indicare 
il limite della scacchiera (tabella 2). 
In questo modo, per passare da una 
casella ad un’altra è sufficiente som¬ 
mare uno dei valori riportati in ta¬ 
bella 1. 

Nel vettore conserveremo: 0 = per 
indicare una casella vuota; 1 = fuori 
scacchiera; —1 = pedine computer; 
—2 = pedine avversario. 

Ecco un breve commento alle li¬ 
nee del programma che è presentato 
nel listato 1 nella versione per VIC 
20. Le modifiche per il C 64 sono 
riportate nel riquadro. 

2 Dimensiona vettori scacchiera 
(S%), valore caselle (K%), direzioni 
(R%). 

3-7 Costruisce il vettore valore ca¬ 
selle partendo dai valori di un solo 
quadrante della scacchiera. 

8 Posiziona le prime quattro pedine. 
11 Memorizza il limite della scac¬ 
chiera. 

12-15 Inizio partita con scelta del 
primo giocatore. 

16-27 Gioca il computer. 

28 Controlla se è terminata la parti¬ 
ta. 

29-34 Se la partita è terminata decre¬ 
ta il vincitore. 

35-50 Riceve la mossa dell’avversa¬ 
rio la controlla e la esegue. 

51-56 Messaggi di errore. 

57-72 Routine scelta mossa del com¬ 
puter. 

57-60 Loop principale per la ricerca 
delle caselle vuote. 

61-72 Routine per il calcolo del valo¬ 
re della mossa e la scelta della mi¬ 
gliore. 

73-80 Routine controllo mosse. Se T 
= 0 la mossa non effettua prese. 
81-88 Routine esecuzione mossa, 
aggiornamento vettore scacchiera. 
88-91 Conteggio numero pedine 
computer ed avversario. 

92-103 Routine disegno scacchiera e 
punteggi. 

104 Data direzioni movimento sulla 
scacchiera. 

105-108 Data valori caselle del se¬ 
condo quadrante della scacchiera. 
109-127 Routine copertina. ■ 


Seguito listato I. 

29 PRINTI* 

30 IFPC<PfiTHEN33 

31 PRINT"3H0 VINTO* 

32 FORI-234T0128STEP-1 P0KE36873,I:FORP-1TO20 NEXT:NEXT:P0KE36873,0 : G0T0109 

33 PRINT"SHAI VINTO* 

34 FORI = 128T0234:P0KE36875,I :F0RP=1TO20:NEXT:NEXT:P0KE36873,0 GOTO109 


35 

36 

PRINTI# 

PRINT" SLR TUR MOSSA?» 




37 

38 

GETRS:IFfì#=”"THEN37 

IFfìS*"P »THENPRINTIS : PRINT" 



" : JP-1 : GOTO16 


39 IFVAL < R* > < 1GRVAL < fl* > >8THEN37 

40 CL—VAL< 8* >•PRINTCLI 

41 OETRf IFfl*-'"'THEN41 

42 IFVRL(R* X1ORVRL < A* >>8THEN41 

43 R=VRL<R*>-1 PRINTR+I 

44 K=CL+R*9 : ER-0 

43 IFSXOOO0THENER-2 : G0T031 

46 G—2 G0SUB73 

47 IFT=0THENER-3 : GOTO51 

48 MO-MO+1 ■ PR I NT I * : PR I NT '' 

49 IFMO<60RNDPO0THEN16 
30 G0TG29 

51 PRINTI* 

32 P0KE36874,150 

33 IFER-2THENPRINT"CASELLA OCCUPRTR ":G0T053 

34 PRINT"NON RERLI2ZR PRESR 

33 FORI * 1TO1300 : NEXT : P0KE36874,0 
56 PRINT" "iFORI-1T01300'NEXT-G0T033 

37 P=0:C=0 

38 F0RK-1T071 

39 I FSX< K > -0THENGOSUB61 

60 NEXT; reto 4M 

61 PM»0'PP=0GESTORE:FORD-1T08 

62 RERDQ:H-K•F-0-N-0 

63 H-H+Q 

64 IFH<0ORH>71THEN68 

63 IFSX<H>-0ORSX(:H>-1THEN68 

66 IFS ■/. <H) — 2THENF-F+KX<H) : N-N+1 : GOT063 

67 IFHOK+QTHENF-F+KXCH) : PM-PM+F : PP-PP+N 

68 NEXT■IFPP-PRTHENP-1E4:C-K■RETURN 

69 IFPP-0THENRETURN 

70 PM-PII+KXOO:IFPMCPTHENRETURN 

71 IFPM-PRNDRND<1 ».3THENRETURN 

72 P-PM:C-K: RETURN 

73 RESTORE : T-0 

74 F0RI-1T08 : RX< I ?-0 : READQ 
73 H=K 

76 H-H+Gl 

77 IFH>71ORH<0THEN80 

78 I FSX< H >-<-3-G > THEN76 

79 IFSX< H >-GRNDSX < H-Q>-<-3-G>THENRX <I)-Q:T-1 

80 NEXT: IFT-0THENRETURN 

81 SXOO-G 

82 G0SUB92 

83 FORI-1TO0:IFRXCI)-0THEN88 

84 H=K 

63 H-H+RXCI) 

86 IFSXCH >-(-3-G>THENSX<H> =G:G0T083 

87 G0SUB92 

68 NEXT : PC—0'PR—0 

69 F0RI-1T071 : IFSXU>—1THENPC-PC+1 

90 IFSXCI>=-2THENPR-Pfì+l 

91 NEXT 

92 PRINT"* 12343678" 

93 PRINT" . -ili." 

94 FQRM-8T07 : P0KE36876. -223#<M<2> : F0RN-1T08 
93 IFSX<N+M#9>=0THENPRINT"I ";:G0T098 

96 IFSX<N+N*9> — 1THENPRINT" IO"; : G0T098 

97 PRINT"!•"; 

98 NEXT : PRINTM+1 "IMI l''J 

99 PRINT : PRINT" h-H I I I I I I I" 

100 NEXTN : PRINT'T] . . 

101 PRINT"#<TU>- IMrPA.:TflB<10;'"CKIO>- IMI"PC 

102 PRINT"*DtKF'ER PASSARE 'P'“ ) 

103 RETURN 

104 DRTA-10,-9,-8,-1,1,8,9, 10 

105 PATA5,3,3,3 

106 DATR3,1,2,2 

107 PATA3,2,1,2 

108 PRTR3,2,2,1 

109 PRINT"3" :B*-"F T':B1#«" 

110 FOR J= 1TO100C : NEXT : PR INT " SI«W" 

111 PRINTTfiB<7) " BT ^1" 

112 PRINTTRB<7>"6r ^i" 

113 PRINTTRB<7> " 9 ,-> 9" 

114 PRINTTRBC7)"8 • • 9 " 

115 PRINTTRBC6)" ,8 I •» 

116 PRINTTAB(6>"18 I 91” 

117 PRINTTAB<6?" ' 8 -*■ ■0“ 

118 PRINTTABC7)"8 9";B#; "8 9" 

119 PRINTTABC7)"8 9";BIS;"8 B" 

120 PRINTTABC7) '"^8 W" 

121 PRINTTRB<7>" ^8 W" 

122 PR I NT " JUDO" ; TRB < 7 > NS 

123 PRINT" KBWnPREMI G PER GIOCRRE3"; 

124 GETRS : IFRSO " G " THEN126 

125 CLR : G0T02 

126 IFBS*" 8-9"THENBS-"F V : BIS*" " : N*«" 80THELL09" : GOTO 110 

127 BS=’'«-■" : B1S* " 8 1":N#»" ":QOTO110 
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I outine in linguaggio 
macchina per ZX81— 


— Parte seconda — 


Alcune interessanti 
subroutine da inserire 
nei vostri programmi 


di Carlo Cappelli 


C hi ha realizzato i program¬ 
mi presentati nell’articolo 
precedente si sarà reso 
conto delle incredibili possibilità 
che si possono ottenere con la pro¬ 
grammazione in linguaggio macchi¬ 
na. 

Lo scopo di questo secondo articolo 
è sia di approfondire i campi di ap¬ 
plicazione dei programmi presentati 
precedentemente, che di sviluppare 
nuove idee di utilità generale. 

E anche opportuno fare delle preci¬ 
sazioni sulla differenza tra RAND 
USR ... e LET K = USR ... per chia¬ 
mare le routine; bisogna infatti tener 
presente che l’istruzione RAND sta¬ 
bilisce il punto di partenza della se¬ 
quenza dei numeri casuali ottenibili 
con la funzione RND ed è quindi 
sconsigliabile usare RAND USR ..., 
se nel programma si usa anche la 
funzione RND, altrimenti si rischia 
di avere sempre lo stesso numero 
casuale o la stessa sequenza di nu¬ 
meri casuali. 

Come primo argomento viene 
perfezionata la routine per congiun¬ 
gere due punti presentata nella scor¬ 
sa puntata; a tale scopo abbiamo 
ancora una ventina di byte a disposi¬ 
zione nella REM. 

Vengono presentati tre migliora¬ 
menti del modo di caricare i punti da 
congiungere. Per inserire il miglio¬ 
ramento scelto occorre caricare la 
versione veloce del programma di 


unione dei punti (1 REM ..., 5 REM 
...) e successivamente scrivere il pro¬ 
gramma di caricamento codici, pre¬ 
sentato all’inizio dell’articolo prece¬ 
dente, però con: 

10 LET A = 16720 
Fatto ciò, passiamo ad analizzare i 
programmi. 

Con il primo miglioramento le coor¬ 
dinate del punto di arrivo si carica¬ 
no nella stringa W$, mentre le coor¬ 
dinate del punto di partenza sono 
quelle dell’ultimo punto disegnato 
con il comando PLOT. Quindi, per 
tracciare una linea dal punto (X, Y) 
al punto (A, B) si scrive: 

PLOT X, Y 

LET W$ = CHR$ A + CHR$ B 
RAND USR 16720 
Questo è possibile grazie al fatto che 
le coordinate dell’ultimo punto di¬ 
segnato da PLOT vengono memoriz¬ 
zate nelle locazioni 16438 e 16439. 
Per implementare il miglioramento 
occorre modificare la routine di ca¬ 
ricamento delle coordinate, che in¬ 
comincia dalla locazione 16720, in¬ 


serendo i codici decimali della figura 

1 . 

La differenza con il caricatore pre¬ 
cedente consiste anche in un con¬ 
trollo più preciso per localizzare la 
stringa W$. Infatti viene cercato, ol¬ 
tre al codice di W$ (che è 92), anche 
il valore della lunghezza che, essen¬ 
do di due caratteri, in memoria è 
scritta 2,0. Così facendo si cerca di 
evitare il più possibile la confusione 
con una serie numerica simile, ca¬ 
sualmente incontrata. 

Per rendere operativo il program¬ 
ma, dopo aver inserito i codici, oc¬ 
corre introdurre il listato 1. 

Con questo programmino si unisce 
il punto 1,1 con il punto 21,21 (il 
codice del + = 21); si noti che si può 
definire prima la stringa e poi ese¬ 
guire il PLOT e viceversa, l’impor¬ 
tante è che entrambe le operazioni 
avvengano prima della chiamata 
della routine. 

Faccio notare che il programma 
non presenta controlli, quindi la 
stringa W$ deve essere di 2 caratteri, 


16720 LD HL, (16396) 

42 

12 

64 

LD A, (HL) 

126 



INC HL 

35 



CP 92 

254 

92 


JR NZ - 5 

32 

250 


LD A, (HL) 

126 



CP 2 

254 

2 


JR NZ - 10 

32 

245 


INC HL 

35 



LD A, (HL) 

126 



AND A 

167 



JR NZ - 15 

32 

240 


INC HL 

35 



LD A, (HL) 

126 



LD (16516).A 

50 

132 

64 

INC HL 

35 



LD A, (HL) 

126 



LD (16517).A 

50 

133 

64 

LD HL, (16438) 

42 

54 

64 

LD (16514).HL 

34 

130 

64 

16755 JP 16532 

195 

148 

64 


Figura 1. Listato Assembly e codici decimali. Per il caricamento delle coordi¬ 
nate dei punti da plottare vedere dump I. 
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Routine in linguaggio 
macchina per ZX81. 


i cui valori devono risultare appro¬ 
priati (i codici corrispondenti ai ca¬ 
ratteri non devono superare il primo 
63 e il secondo 43). Le applicazioni 
sono molteplici, ma principalmente 
può servire per prospettive di fun¬ 
zioni, cioè per proiettare in un unico 
punto (quello plottato inizialmente) 
le varie posizioni di un grafico, come 
nel programma del listato 2. 

Per vedere i disegni così composti 
bisogna prima dare il RUN, eseguire 
poi GOTO 110 e poi ancora GOTO 
210 . 

Il secondo miglioramento permette 
di inserire in una unica stringa una 
serie di punti (al massimo 126) da 
unire due a due. 

Per inserire questo miglioramento 
bisogna compiere le stesse operazio¬ 
ni descritte per il primo, cioè carica¬ 
re il programma base (le due REM) e 
le istruzioni per il caricamento dei 
programmi in linguaggio macchina, 
con 10 LET A = 16720; dare il RUN 
e inserire i codici della figura 2. 

Per usare questa routine si scrive: 
POKE 16731, LEN W$ RAND. 
USR 16720. 


Ad esempio, se si vogliono disegna¬ 
re tre segmenti di coordinate: 10, 10 
— 23, 17 per il primo; 0,0 — 7,9 per il 
secondo; 63, 0 — 0, 43 per il terzo, 
come dal listato 3. 

Con il programma del listato 4 si 
possono realizzare tutte le assono¬ 
metrie di un cubo e, con semplici 
modifiche, lo si può adattare per vi¬ 
sualizzare altri solidi. La figura 8 
illustra il passaggio dalle coordinate 
spaziali a quelle sul piano. 

Al primo input bisogna inserire un 
valore fino a 20; al secondo e terzo il 
punto intorno al quale si vuol visua¬ 
lizzare il cubo (esempio centro 
schermo 31 — 21); al quarto e al 
quinto input l’angolo assonometri¬ 
co (esempio, per l’assonometria ca- 
valiera inserire: 45 e 0). 

11 terzo miglioramento serve per 
congiungere più punti consecutivi: è 
adatto quindi a rappresentare le fi¬ 
gure sul piano. 

E da notare che con i programmi di 
disegno migliorati si può sopperire 
alla mancanza di istruzioni come 
SQUARE ecc.; infatti si può definire 
la stringa W$ con le coordinate di 


qualsiasi struttura geometrica, in 
modo che la routine disegni sullo 
schermo la figura voluta. 

Per inserire quest’ultimo miglio¬ 
ramento bisogna procedere come 
nei casi precedenti e inserire i codici 
della figura 3. 

Per tracciare, ad esempio, due seg¬ 
menti di coordinate: (0.0) - (30,30) 
per il primo e (30,30) - (3,43) per il 
secondo bisogna inserire il listato 5. 
Si possono realizzare composizioni 
grafiche gradevoli, come nel listato 
6, oppure si possono emulare fun¬ 
zioni grafiche come “square”. 
Sempre sfruttando questo migliora¬ 
mento è stato realizzato un pro¬ 
gramma per la rotazione di figure 
sul piano, presentato nel listato 7. 

In input va inserito il numero dei 
lati della figura da ruotare (che deve 
essere inferiore a 126) e le coordina¬ 
te dei vertici di ogni segmento che 
compone la figura, ricordando che 
le suddette coordinate non sono ri¬ 
ferite all’origine in basso a sinistra, 
ma al centro dello schermo; quindi 
per far ruotare un quadrato rispetto 
al centro delle sue diagonali si dovrà 


16720 

LD HL. (16396) 

42 

12 

64 


LD A. (HL) 

126 




INC HL 

35 




CP 92 

254 

92 



JR NZ - 5 

32 

250 



LD A. (HL) 

126 




CP 0 

254 

0 



JR NZ - 10 

32 

245 



INC HL 

35 




INC HL 

35 




RRA 

31 




RRA 

31 




LD B. A 

71 




PUSH BC 

197 




LD BC. 4 

1 

4 

0 


LD DE. 16514 

17 

130 

64 


LDIR 

237 

176 



PUSH HL 

229 




CALL 16532 

205 

148 

64 


POP HL 

225 




POP BC 

193 




DJNZ - 16 

16 

239 


16756 

RET 

201 




16720 

LD HL (16400) 

42 

16 

64 


LD A. (HL) 

126 




INC HL 

35 




CP 92 

254 

92 



JR NZ - 5 

32 

250 



LD A, (HL) 

126 




CP 0 

254 

0 



JR NZ - 10 

32 

245 



INC HL 

35 




INC HL 

35 




RRA 

31 




DEC A 

61 




LD B. A 

71 




PUSH BC 

197 




LD BC 4 

1 

4 

0 


LD DE. 16514 

17 

130 

64 


LDIR 

237 

176 



PUSH HL 

229 




CALL 16532 

205 

148 

64 


POP HL 

225 




POP BC 

193 




DEC HL 

43 




DEC HL 

43 




DJNZ - 18 

16 

237 


16758 

RET 

201 




Figura 2. Listato Assembly e codici decimali del secon- Figura 3. Listato Assembly e codici decimali del terzo 

do miglioramento. miglioramento. 















inserire: 

XI = - 5 Y1 = — 5 

X2 = - 5 Y2 = 5 

X3 = 5 Y3 = 5 

X4 = 5 Y4 = - 5 

X5 = — 5 Y5 = - 5 

Per le figure chiuse, come nel caso di 
un quadrato, la quinta coordinata 
deve essere uguale alla prima; que¬ 
sto perché il programma non distin¬ 
gue tra figure chiuse e aperte. 

Per quanto riguarda i parametri 
estremi delle coordinate vale la re¬ 
gola: x 2 +y 2 <441. In linea di massi¬ 
ma si possono inserire valori di x o 
di y compresi tra — 21 e 21, purché 
rispettino la regola appena esposta; 
comunque ci pensa il programma a 
verificare se i parametri sono esatti. 
Per fare una rotazione continua del¬ 
la figura basta inserire: 

450 GOTO 340 

Invece se si vuole fare in modo che la 
figura lasci una traccia mentre ruo¬ 
ta, basta togliere le linee 400 e 410. 

Per ottenere immagini insolite o 
rotazioni diverse si possono modifi¬ 
care gli argomenti trigonometrici al¬ 
la linea 290. 

La 290 si può scrivere così: 

290 LET A$ = (C, 2 x U - I TO) = 
CHR$ (A (U, I) x COS (A (U, 2) x C 
+ G) + 31) + CHR$ (A (U, I) x SIN 
(A (U, 2) x C + G) + 21). 

Provate ora a inserire il quadrato 
precedente (meglio se al posto dei 5 
inserite i 10, poiché la figura risulta 
più grossa) dopo aver tolto le linee 
400 e 410: otterrete una immagine 
simile a un fiore. 

Oppure al posto di A (U, 2) x C fate 
A (U, 2)/C e vedrete il quadrato 
ridursi. 

A titolo di suggeriménto, potete 
provare a modificare, sempre nella 
linea 290, la variabile G inserendo: 
A (U, 2) ★ G x C oppure ... A (U, 2) 
+ G/C ... 

La rotazione delle figure avviene di 
trenta gradi in trenta gradi; per cam¬ 
biare questo valore bisogna modifi¬ 
care lo step alla linea 270 e cambiare 
opportunamente il valore 13 nelle 
linee 260 e 340 nel modo seguente: 
nuovo valore = 2 x PI / nuovo step 


+ 1 . 

Ad esempio, per una rotazione di 
venti gradi in venti gradi, con uno 
step quindi di PI/9, il valore sostitu¬ 
tivo deve essere di 19. 

Con questi miglioramenti si è po¬ 
tuto vedere come, con semplici mo¬ 
difiche, si possono adattare dei pro¬ 
grammi in linguaggio macchina a 
esigenze particolari; ora passiamo 
ad analizzare nuove e interessanti 
idee per potenziare lo ZX81; non si 
dimentichi che queste stesse routine 
possono essere adattate anche per 
altri personal che usino il micropro¬ 
cessore Z 80. 


Il prossimo programma serve per 
imitare i comandi che gestiscono i 
colori (nel nostro caso solo per il 
bianco e per il nero) posseduti da 
molti BASIC. In sostanza, il pro¬ 
gramma serve per invertire il colore 
di una parte di schermo definita dal¬ 
l’utente. 

Per questo programma occorre una 
REM di almeno 90 caratteri e il pro¬ 
gramma di caricamento della routi¬ 
ne in linguaggio macchina presenta¬ 
to all’inizio dell’articolo precedente. 
I codici da inserire sono quelli della 
figura 4. 

Prima di usare questa routine biso- 


16518 NOP 

0 



LD HL. (16400) 

42 

16 

64 

LD A. (HL) 

126 



INC HL 

35 



CP 92 

254 

92 


JR NZ - 5 

32 

250 


LD A. (HL) 

126 



CP 4 

254 

4 


JR NZ - 10 

32 

245 


INC HL 

35 



INC HL 

35 



LD DE. 16514 

17 

130 

64 

LD BC. 4 

1 

4 

0 

LDIR 

237 

176 


LD HL; (D-FILE) 

42 

12 

64 

INC HL 

35 



LD D. 0 

22 

0 


LD A. (16515) 

58 

131 

64 

LD E. A 

95 



LD B. 33 

6 

33 


ADD HL. DE 

25 



DJNZ - 2 

16 

253 


LD A; (16514) 

58 

130 

64 

LD E. A 

95 



ADD HL. DE 

25 



LD A. (16517) 

58 

133 

64 

LD (16518). A 

50 

134 

64 

LD A. (16516) 

58 

132 

64 

LD B. A 

71 



LD A. (HL) 

126 



ADD A. 128 

198 

128 


LD (HL). A 

119 



INC HL 

35 



DJNZ - 6 

16 

249 


LD A. (16516) 

58 

132 

64 

LD E. A 

95 



LD A. 33 

62 

33 


SUB E 

147 



LD E. A 

95 



ADD HL. DE 

25 



LD A. (16518) 

58 

134 

64 

DEC A 

61 



RET Z 

200 



LD (16518). A 

50 

134 

64 

16597 JR — 29 

24 

226 



Figura 4. Listato Assembly e codici decimali della routine per l’inversione di 
zone video. 
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16595 LD HL. (16516) 

42 

132 

64 


LD D. 0 

22 

0 



LD B. L 

69 




LD E. H 

92 




LD HL 0 

33 

0 

0 


ADD HL. DE 

25 




DJNZ - 2 

16 

253 



LD B. 0 

6 

0 



EX DE. HL 

235 




LD HL. 0 

33 

0 

0 


LD A. B 

120 




ADD HL. DE 

25 




DJNZ - 2 

16 

253 



EX DE. HL 

235 




LD (16656). A 

50 

16 

65 


LD HL. (16400) 

42 

16 

64 


LD A. H 

124 




CP 125 

254 

125 



JR Z 20 

40 

20 



LD A. (HL) 

126 




INC HL 

35 




CP 70 

254 

70 



JR NZ - 10 

32 

245 



LD A. (HL) 

126 




CP E 

187 




JR NZ - 9 

32 

246 



INC HL 

35 




LD A. (HL) 

126 




CP D 

186 




JR NZ - 14 

32 

241 



INC HL 

35 




LD (16547). HL 

34 

163 

64 


RET 

201 




LD A. 16 

62 

16 



LD (16384). A 

50 

0 

64 


RET 

201 




16656 NOP 

0 




16657 CALL 16519 

205 

135 

64 


LD (16547). HL 

34 

163 

64 


LD A. (16656) 

58 

16 

65 


DEC A 

61 




JP Z 16595 

202 

211 

64 


LD (16656). A 

50 

16 

65 


16673 RET 

201 





Figura 5. Listalo Assembly e codici decimali della modifica per il trasferimen¬ 
to delle immagini video. 
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Routine in linguaggio 
iBr:_macchina per ZX81 

gna inserire i parametri della fine¬ 
stra di schermo da invertire nella 
stringa W$ secondo la solita regola, 
cioè prima le coordinate del punto 
estremo in alto a sinistra, poi la lun¬ 
ghezza e infine la larghezza. 

Per invertire un rettangolo di scher¬ 
mo, il cui estremo in alto a sinistra 
ha coordinate 8,8, di lunghezza 15 e 
larghezza 7, si deve scrivere la strin¬ 
ga in questo modo: 

W$ = CHR$ 8 + CHR$ 8 + CHR$ 
15 + CHR$ 7. 

I valori da inserire devono essere 
congrui con le dimensioni dello 
schermo, come più volte precisato, 
altrimenti si rischia di bloccare il 
computer. 

Per la chiamata alla routine si può 
usare: RAND USR 16519. Si provi il 
programmino del listato 8. 

La routine presentata è utile per far 
lampeggiare messaggi o immagini. 

Sempre restando nel tema di ge¬ 
stire immagini video, come terzo ar¬ 
gomento viene potenziato il pro¬ 
gramma per inviare istantaneamen¬ 
te immagini sullo schermo (pro¬ 
gramma presentato nell’articolo 
precedente). Le modifiche compor¬ 
tano un nuovo modo di memorizza¬ 
re l’immagine video, che rende pos¬ 
sibile anche il suo trasferimento su 
cassetta, e la gestione veloce dei fo¬ 
togrammi che, attraverso un’appo¬ 
sita routine, permette animazioni 
spettacolari. 

Cominciamo, quindi, col caricare il 
programma dell’articolo preceden¬ 
te, controllando che la REM abbia 
75 caratteri. Se avete seguito le indi¬ 
cazioni precedenti, non avrete alcun 
problema, altrimenti modificate la 
REM e, per essere sicuri che sia della 
lunghezza giusta, scrivete PRINT 
PEEK 16594; dovete ottenere 234. 
Successivamente dovete comporre 
una seconda REM (esempio, 5 
REM) di almeno 85 caratteri. I codi¬ 
ci vanno inseriti con il solito pro¬ 
gramma di caricamento, però con: 
10 LET A = 16795 (vedi figura 5). 
parti distinte; la prima, che iniza 
dalla locazione 16595, serve per tro¬ 
vare nell’area variabili la stringa A$, 
90 


che contiene tutti i dati dei disegni; 
la seconda parte gestisce l’alternarsi 
dei fotogrammi. Questo ciclo, però, 
non è chiuso in linguaggio macchi¬ 
na, ma vi è un ritorno al BASIC per 
poter regolare la velocità con la qua¬ 
le si devono alternare i fotogrammi. 
Chi volesse ottenere la massima ve¬ 
locità, chiudendo il ciclo in linguag¬ 


gio macchina, deve sostituire l’ulti¬ 
ma istruzione (16673 RET) con: JR 
— 18 24 237, anche se la cosa non è 
molto consigliabile, causa l’eccessi¬ 
va velocità ottenuta. 

Per attivare questa routine biso¬ 
gna, oltre a inserire i soliti parametri 
dimensionali descritti nell’articolo 
precedente, scrivere nella locazione 
















'A 


là,. 


Routine in linguaggio 
_macchina per ZX81 


16609 il numero dei riquadri prepa¬ 
rati; per conoscere il numero massi¬ 
mo di questi si ricordi che non si 
possono superare le disponibilità di 
memoria dei computer, quindi con 
l’espansione da 16 Kbyte si possono 
inserire al massimo circa 22 riquadri 
di 600 caratteri l’uno (30 x 20). 
Successivamente si deve usare 
RAND USR 16595 per identificare 
la posizione della stringa A$ e, dopo 
RAND USR 16657 si devono invia¬ 
re le immagini sullo schermo. Le ap¬ 
plicazioni di questo programma so¬ 
no per tutte le simulazioni di movi¬ 
mento; cercate ad esempio di imita¬ 
re l’effetto tunnel, preparando pochi 
fotogrammi che diano l’idea di 
avanzare dentro una galleria. 

Se volete sbizzarrire la fantasia ag¬ 
giungete alle due REM il program¬ 
ma del listato 9, che permette di pre¬ 
parare i vari fotogrammi. 

Per un corretto funzionamento 
del programma si consiglia di non 
inserire dimensioni eccessive, cioè di 
non comporre disegni grandi come 
tutto lo schermo, poiché si rischia di 
coprire i messaggi che il programma 
BASIC invia sullo schermo stesso. 
Non preoccupatevi se nel comporre 
il disegno commettete degli errori 
poiché, alla fine di ogni riquadro, il 
programma vi chiede se dovete cor¬ 
reggere qualche linea. 

Se volete realizzare il già accennato 
effetto tunnel, è sufficiente inserire 
le immagini 3, 45. 

Per centrare opportunamente la fi¬ 
gura bisogna inserire come X di par¬ 
tenza il valore 6 e per la Y il valore 1. 
Chi ha fantasia e inventiva avrà già 
capito i molteplici impieghi possibili 
di questa routine nella realizzazione 
di giochi di movimento. 

Il prossimo argomento che affronte¬ 
remo è quello della protezione dei 
programmi contro accessi non auto¬ 
rizzati, imitando una caratteristica 
dei grandi sistemi. 

La routine presentata può essere 
inserita all’inizio di qualsiasi pro¬ 
gramma e ne blocca l’esecuzione fi¬ 
no a quando non viene inserita cor¬ 
rettamente la parola chiave, che de- 


16550 

codici 

A 

38 




parola c 

, . Esempio 

chiave ^ 

B 

C 

39 

40 




di 5 

D 

41 




caratteri 

E 

42 



16555 

PUSH HL 


229 




PUSH DE 


213 




CALL 699 


205 

187 

2 


LD A. H 


124 




ADD A. 2 


198 

2 



JR C 8 


56 

8 



LD B. H 


68 




LD C. L 


77 




CALL 1981 


205 

189 

7 


LD C. (HL) 


78 




JR C 2 


56 

2 



LD C. 0 


14 

0 



POP DE 


209 




POP HL 


225 




RET 


201 



16578 

LD HL. (D-FILE) 


42 

12 

64 


INC HL 


35 




LD (HL). 146 


54 

146 



LD D. 0 


22 

0 



CALL 16555 


205 

171 

64 


LD A. C 


121 




AND A 


167 




JR Z-6 


40 

249 



DEC A 


61 




CP 117 


254 

117 



JR Z 23 


40 

23 



INC D 


20 




LD A. D 


122 




CP 20 


254 

20 



JR Z 11 


40 

11 



LD (HL). C 


113 




INC HL 


35 




CALL 16555 


205 

171 

64 


LD A. C 


121 




AND A 


167 




JR NZ - 6 


32 

246 



JR - 28 


24 

227 



CALL 2602 


205 

42 

10 


JP 16578 


195 

194 

64 


LD A. D 


122 




CP 5 


254 

5 



JR NZ - 10 


32 

245 



LD HL. (D-FILE) 


42 

12 

64 


LD DE. 16550 


17 

166 

64 


LD B. 5 


6 

5 



INC HL 


35 




LD C. (HL) 


78 




EX DE. HL 


235 




LD A. (HL) 


126 




CP C 


185 




JR NZ - 25 


32 

230 



INC HL 


35 




EX DE. HL 


235 




DJNZ - 10 


16 

245 



CALL 2602 


205 

42 

10 

16648 

RET 


201 




Figura 6. Listato Assembly e codici decimali della routine per la protezione dei 
programmi mediante chiave di accesso. 
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ve essere composta da 5 lettere o 
numeri. 

Tutte le diverse chiavi possibili con 
36 caratteri (26 lettere + 10 numeri), 
presi 5 a 5, sono ben 60.466.176. 

La routine di protezione, che con¬ 
viene inserire e memorizzare da sola 
per poterla richiamare prima di scri¬ 
vere il programma che si vuole pro¬ 
teggere, presenta le seguenti caratte¬ 
ristiche: 

1) è autolanciante, cioè parte auto¬ 
maticamente appena caricata. Per 
avere questa caratteristica è necessa¬ 
rio che il comando “SAVE”, usato 
per memorizzare il programma da 
proteggere, sia contenuto all’inter¬ 
no della routine, prima della prima 
istruzione che si vuole sia eseguita. 
Per memorizzare il programma in 
modo autolanciante basterà quindi 
eseguire “GOTO” seguito dal nu¬ 
mero di linea dove si trova il coman¬ 
do “SAVE”, mentre memorizzando 
il programma con il comando “SA¬ 
VE” dato in modo immediato non si 
ottiene la partenza automatica; 

2) appena partita entra in una routi¬ 
ne in linguaggio macchina che non 
può essere fermata in nessun modo, 
a meno che non si vada a resettare la 
CPU con un intervento hardware; 

3) la routine in linguaggio macchina 
accetta i caratteri premuti sulla ta¬ 
stiera, visualizzandoli sullo schermo 
e, ogni volta che si preme NEW LI¬ 
NE, verifica se i caratteri scritti sul 
video corrispondono alla parola 
chiave: in questo caso vi è il ritorno 
al BASIC. 

Per inserire la routine scrivete in¬ 
nanzitutto: 1 SAVE “nome pro¬ 
gramma”. 

Il nome del programma deve essere 
al massimo di 10 lettere ed una volta 
scritto non deve essere più né allun¬ 
gato né accorciato, altrimenti si 
scompigliano le locazioni di memo¬ 
ria successive. 

Poi scrivete 5 RAND USR 16578 

10 REM ... con 120 caratteri 
come dal listato 10. 

A questo punto scrivete il solito pro¬ 
grammino di caricamento, però con 

11 LET A = 16550; fatto questo, 
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inserite i codici della figura 6. 

La routine in linguaggio macchina 
presenta delle chiamate a routine 
della ROM; per la precisione le 
CALL 699 e 1981 servono per l’ana¬ 
lisi dei tasti premuti, mentre la 
CALL 2602 serve per pulire lo 
schermo. Se si vuol chiamare la pa¬ 
rola chiave, non conviene editare la 
REM e correggerla, ma inserire, me¬ 
diante il comando POKE, i nuovi 
codici nelle locazioni 16550-1-2-3-5. 

Vediamo ora come è possibile su¬ 
perare questo tipo di protezione; in¬ 
fatti questo programma, come tutti i 
programmi autolancianti, può esse¬ 
re intercettato con il seguente pro¬ 
grammino in linguaggio macchina, 
inseribile in una REM: 

CALL 3875 205 35 15 

SCF 55 

JP 835 195 67 3 

Per attivare questa semplice routine 
basta dare il comando RAND USR 
16514, dopo di che accendere il regi¬ 
stratore. Il trucco consiste nel creare 
nella locazione 16384 un codice di 
errore, in modo tale che il computer, 
dopo avere seguito il LOAD si bloc¬ 
ca, poiché va ad analizzare quella 
locazione di memoria. Per migliora¬ 
re la protezione anche contro questo 
intervento, oppure nel caso che 
qualcuno riesca a bloccare il pro¬ 
gramma, si può usare un artificio; si 
può infatti spostare il puntatore di 
fine programma BASIC alla linea 5, 
in modo tale da non rendere visibile 
tutto ciò che si trova oltre quella 
linea, così chi tentasse di inserire 
delle istruzioni per cercare di deco¬ 
dificare ciò che si trova oltre la linea 
5 non farebbe altro che cancellare il 
programma nascosto. L’unica pos¬ 
sibilità è di ripristinare, a colpo sicu¬ 
ro, il puntatore di fine programma. 

Per mettere in pratica anche que¬ 


sta protezione occorre: 

1) che il nome del programma sia di 
6 lettere; 

2) inserire il programma di protezio¬ 
ne, con l’aggiunta di alcune istruzio¬ 
ni. Dalla locazione 16648, al posto 
di RET inserire: 

16648 

LD HL. 2560 33 0 10 

LD (16541). HL 34 157 64 

RET 201 

3) prima di salvare il programma su 
nastro eseguire POKE 16541, 118 e 
POKE 16542, 118: dopo questi due 
comandi non sarà più visibile tutto 
ciò che si trova oltre la linea 5; 

4) salvare il programma su nastro 
con GOTO 1 e verificare che solo 
inserendo la parola chiave si può 
accedere al resto del programma. 
Faccio notare che la procedura di 
spostamento del puntatore BASIC 
può essere utile nel caso si debba 
cancellare una serie di istruzioni ter¬ 
minali: basta “pokare”, all’inizio 
della prima istruzione da cancellare, 
un 118. 

L’ultimo argomento presentato 
consiste nell’implementazione sullo 
ZX81 uno SCROLL bidirezionale 
di porzioni di schermo definite dal¬ 
l’utente. Il programma, sfruttato 
opportunamente, può generare con¬ 
temporaneamente parti di schermo 
che scorrono verso l’alto e parti che 
scorrono verso il basso oppure lo 
scroll di porzioni di schermo non 
quadrate o rettangolari, ma di varie 
forme; si riescono, quindi, a supera¬ 
re le limitazioni imposte dagli scroll 
standard. 

Per incominciare scrivete una 
REM di 210 caratteri e con il solito 
programmino inserite i codici della 
figura 7 a partire dalla locazione 
16518: 


Figura 7. Listato Assembly e codici decimali de! programma di scroll bidire¬ 
zionale verticale. 


16518 LD A. 16 

62 

16 


LD (16383). A 

50 

0 

64 

RET 

201 



LD HL. (16400) 

42 

16 

64 

LD A. H 

124 



CP 125 

254 

125 


JR Z - 13 

40 

242 


LD A. (HL) 

126 



INC HL 

35 



CP 92 

254 

92 











Seguito figura 7. 








JR NZ - 10 

32 

245 


DJNZ - 2 

16 

253 


LD A. (HL) 

126 



LD A. (16514) 

58 

130 

64 

CP 6 

254 

6 


LD E. A 

95 



JR NZ - 10 

32 

245 


ADD HL. DE 

25 



LD BC. 4 

1 

4 

0 

LD A. (16517) 

58 

133 

64 

INC HL 

35 



LD (16514). A 

50 

130 

64 

INC HL 

35 



PUSH HL 

229 



LD DE. 16514 

17 

130 

64 

LD A. (16516) 

58 

132 

64 

LDIR 

237 

176 


LD C. A 

79 



LD A. (HL) 

126 



LD DE. 16680 

17 

40 

65 

CP 55 

254 

55 


LDIR 

237 

176 


JR Z 4 

40 

4 


POP HL 

225 



LD A. 0 

62 

0 


PUSH HL 

229 



JR 2 

24 

2 


LD DE. 33 

17 

33 

0 

LD A. 7 

62 

7 


SBC HL. DE 

237 

82 


LD (16658). A 

50 

18 

65 

POP DE 

209 



INC HL 

35 



LD A. (16516) 

58 

132 

64 

LD A. (HL) 

126 



LD C. A 

79 



CP 39 

254 

39 


LDIR 

237 

176 


JR Z 11 

40 

11 


LD C.A 

79 



LD HL. 6400 

33 

0 

25 

SBC HL. BC 

237 

66 


LD (16636). HL 

34 

252 

64 

LD A. (16514) 

58 

130 

64 

LD A. (16515) 

58 

131 

64 

DEC A 

61 



JR 14 

24 

14 


LD (16514). A 

50 

130 

64 

LD HL. 21229 

33 

237 

82 

JR NZ - 24 

32 

231 


LD (16636). HL 

34 

252 

64 

JR 0 

24 

0 


LD A. (16515) 

58 

131 

64 

LD B. C 

65 



LD E. A 

95 



LD (HL). 0 

54 

0 


LD A. (16517) 

58 

133 

64 

INC HL 

35 



ADD A. E 

131 



DJNZ - 4 

16 

251 


LD HL. (D-FILE) 

42 

12 

64 

RET 

201 



INC HL 

35 



LD DE. 16680 

17 

40 

65 

LD D. 0 

22 

0 


EX DE. HL 

235 



LD E. A 

95 



LDIR 

237 

176 


LD B. 33 

6 

33 


16672 RET 

201 



ADD HL. DE 

25 








I tipi di scroll possibili sono 4: 
verso il basso; verso l’alto; verso il 
basso con rotazione (l’ultima linea 
viene stampata al posto della prima 
che scrolla verso il basso); verso l’al¬ 
to con rotazione. I codici relativi ai 
diversi scroll sono: “SB“; “SA”; 
“RB”; “RA”. Le dimensioni e il tipo 
di scroll devono essere inserite nella 
stringa WS così: prima le coordinate 
del vertice in alto a sinistra, poi le 
dimensioni con altezza diminuita di 
uno e infine il codice dello scroll. 
Ad esempio, per scrollare un rettan¬ 
golo di schermo di dimensioni 16x7 
e con il vertice in alto a sinistra di 
coordinate 3,3 occorre scrivere: 


WS = CHRS 3 + CHRS 3 + CHRS 
16 + CHRS 6 + “SA” 
così facendo lo scroll sarà verso l’al¬ 
to (SA). La chiamata alla routine la 
si effettua con: RAND USR 16524. 
Nel caso la stringa non abbia tutti e 
6 i caratteri il programma si fermerà 
con errore H. Si veda il listato 11. 
Se si vuole far scorrere una porzione 
di schermo fatta a L, la possiamo 
scomporre in due rettangoli per i 
quali definiremo lo scroll. Esempio: 

1) rettangolo di vertice 6,1 e dimen¬ 
sioni 7 x 19; 

2) rettangolo di vertice 13,13 e di¬ 
mensioni 9x7. 

Si deve inserire: 


10 LET WS = CHRS 6 + CHRS 1 + 
CHRS 7 + CHRS 18 + “SB” 

20 RAND USER 16524 

30 LET WS = CHRS 13+CHRS13 

+ CHRS 9 + CHRS 6 + “SB” 

40 RAND USR 16524 
Con questo semplice programmino 
e la routine in linguaggio macchina 
si otterrà l’effetto desiderato; cioè lo 
scroll verso il basso di una porzione 
di schermo fatta a L. 

Provate a scrollare in direzioni 
opposte due porzioni di schermo 
che si intersecano; otterrete risultati 
interessanti. 
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Figura 8. Il passaggio tra le coordinate spaziati P e 
quelle sul piano P’, avviene tramite le seguenti formule 
assonometriche: B = X — A l x cosS + A2 x cosD e A — 
Y + Al x sinS + A2 x sinD + A3. 


Listato 2. Esempio pratico di utilizzo del primo miglio¬ 
ramento, che disegna tre differenti immagini grafiche 
utilizzando diversi algoritmi di tracciamento. 


1 REM ■■ + +M8INKÉY *MUINKEY *TRN 
MIINKEY *MINKEY * XNKEY *TRN U^RND? 

H7YXLN %RNDX: RETURN 
« LN ÌRND/TyWLN VSNDUjRNDTU-ÉtND 
Y B7YXLN B RNO✓: RETURN 4# LN 
:>y*YUl_N ^RND'?BS»?'?Y MUINKEY* 
jY HINKEY*INKEY*7FfcRNDM3INKEY*M 
. INKEY* - V ». K UNPLOT ITMyINKEY* 
?M-INKEY*E^KND6 ( INKEY* 1 »■ LN BINK 
EY$2=Y*^ - RETURN =S-2=BMyINKEY*U ( 
T M«EY*XM '. INKEY $<J ? INKEY*XM> INKEY* 
.-} M/INKEY$U (INKEY* M ( INKEY*U) INK 
EY*XM)INKEY*UfcRNDXCQS f^RNDTTINK 
EY *E£RNDM%?N07RND6fcRND 7HRNC 
DIM ■.T. . . 


7NDCOS ✓ 




5 REM YYFB? . 

IKEV*?? F 


RETUI 
RETURN 

JlNKEY*Ìv4?5àP ÌT t ~CL 
NKEY* RETURN RNDC57TRN 
B/" acSo. NKEY *7 7 HEJ.URN 




BS-KhS 

RETURN ■& 

I7TRN 


m-' * i KtJUHN JL_ 17THN 


10 POKE 16803,128 
15 LET U**"++" 

20 PLOT 1,1 
30 RfiND USR 16720 



20 

30 

4.0 

50 

SO 

70 

80 

90 

100 

110 

120 

130 

14.0 

« i—r* 

160 
170 
1S0 
208 
218 
220 
230 
24-8 
250 
260 
2 . J 0 
280 
290 
300 
318 
328 


POKE 16803,123 

FOR G=0 TO 4-2 STEP 2 

PLOT 0,E 

i.ET U*=CHR4 &3+CHR* G 
RBND USR 16720 
PLOT 63 , 42 

LET U$=CHRf 0+CHR* (42-GJ 
RRND USR 16728 
NEXT G 
STOP 

FOR G=0 TO 42 STEP 2 
PLOT 0,21 

5?5e u ‘ 1»"}!«S* chr * ° 

kgÌD u JÌIè% 7 IS CHR * " ,a - G> 

NEXT G 
STOP 

PLOT 31,21 

FOR G=0 TO 63 STEP 2 
LET U*=CHR* G+CHR* 42 
RRND USR 16720 

feSSo^"?!^! 3 - 01 * CMR * « 

U>42 TMEN GOTO 320 

gSio u 3lg H S| 7 ll* CRR * ° 
g§5 ? u !jg H 5t 7 li CMR * ‘«- 01 


Listato 1. Esempio di utilizzo de! primo miglioramen¬ 
to, che traccia una linea sul video. Nella linea IO si 
inserisca il valore 128 per plot tare, 64 per non plot tare. 


1 REM 1 2“FMBINKEY*HUINKEY*TRN 
11INKEY*MINKEY*INKEY*TRN U^RND? 

- - Si RETURN 

I *RN0?lW?ND 
RETURN 41 LN 

__ JLN C®7ND-?lllS»i7?y MU] 

| Y MINKI 
CNKEY*- _ 

?M- INKEY «E 

EY*2*Y(_ 7__ ._ _ _ J _ . T _ 

INKEY*UM fINKEY*U> XNKEY*XM)INKEY* 



S TRN 



^"^UJ| T^R|TURN 

"18’POKE‘ièéóóIiàè 
20 LET U»=CMR* 0+CHR* 0+CHR* 3 
0+CHR* 30+CHR* 3+CHR* 43 
30 POKE 16731,LEN U* 

40 RRND USR 16720 


Listato 3. Esempio di utilizzo de! secondo migliora¬ 
mento descritto nei testo. 
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Routine in linguaggio 
macchina per ZX81. 


10 LET fl*="0001001001011010010 
£105380000100 1011C110100110 111 111 
7.91111G110 11091011010" 

14 POKE 16731,4.8 

15 LET U* = "" 

15 PHIMT •• JSISCUBX IN RSSCNCM 
fcTR Iri **■**" 

17 PRIMT 
20 PRINT 
RITTA "J 
25 INPUT 


•RAGGIO SFERR CIRCOSC 


PRINT 
PRINT 
INPUT 
°R INT 
PRINT 
iriPlJ I 
PRINT 
PRINT 
SIN? STRO" 
5£ PRINT 
SS INPUT 
57 PRINT 
60 PRINT 
DESTRO" 

62 PRINT 


30 

3 5 

3 7 
40 

4 7 

50 


R 

R 

"CENTRO 

X 

X 

"CENTRO 

Y 

Y 

"BUGOLO 


ASSE X 


FISSE Y 


RSSONOMETRICO 


"IN GRADI 

PS 

«5 

"(ANGOLO 


RSSONOMETRICO 


•IN GRADI 


67 PRINT AD 

7B LET RS=RS*PIY1S© 

72 LET CS=COS RS 

73 LET SS=SIN RS 

75 LET RD=RD*PI7180 

77 LET CD=COS RD 

78 LET SO bSIN RD 
72 LET D=R/SDR 3 

60 FOR 6=1 TO 72 STEP 3 

90 LET R1=D*C (fl*(G) ="1") -(R* (G 

10© LET A2=D#((fl*(G+l)=“1")-(fl* 
03 + 15 ="0") I 

11® LET A3=D*<(R*(G+2)="!“>-(fl* 
t G +2) = "0") ) 

120 LET B=X-fll*CS+fl2*CO 
130 LET R =Y +A1#SS+A2USD+R3 
14.0 IF B*R<0 OR B > 63 OR R>*3 TH 
EN GOTO 500 

145 LET fi=fl-O*(R<0 OR fl>*3)+*3* 
f a v a -e » 

150 LET U* =U* +CHR* B+CHR* fl 
160 NEXT G 
17® PRINT 

160 PRINT "IN CAMPO INVERSO 7" 
190 INPUT R $ 

195 CLS 

200 IF fl*(l)="S" THEN GOTO 300 
210 POKE 16803,128 
220 RAMO USR 16720 
230 STOP 


*-■ <cj i «_■ rv 

310 PRJ 


330 POKE 16803,6* 

3*0 GOTO 220 

500 PRINT "ERRORE DI DIMENSIONO 
MENTO" 

510 STOP 


1 REM ■ FHBINKEY*MUINKEY*TflN 

tX INKEY *MXNKEY*INKEY *TRN UtRNDT 
<“Y B7YXLN %RND/: RETURN 
RND/TyULN V?NOUjRND7U_RND 
FYXLNJ0RNDY: RETURN 4ÌLN 
TYULN ERND^ÉS^TY MUINKEY* 
4KEY *INKEY*?FCRNDM3INKEY *M 
CNKEY $ - V I fi UNPLOT I 7MyINKEY * 
TM-INKEY*E*^ND6 (INKEY* 1 Z LN HINK 
EY*2FY3«» RETURN ZS-2ZÉM7INKEY*U ( 
INKEY *WH ( INKEY*U.« INKEY *XM) INKEY * 
sì fi/ INKEY*U ( INKEY*WM ( INKEY*U> INK 
EY * M) INKEY*UfcRNDXCOS MfrRND77INK 
EYÌEERND7337URL *■ JfcRND GOSUB ® 
FRST LN BRND LPRINT RT ( LORD T 
RN .. 



REM REM 7B77YFB7: 


RETURN 


■INKEY *rfW?7g2PI; ( CLERR 7tf» 
EY*_RETURN RNDC67TRN RETURN 
—EJÉINKEY*7? RETURN ■""■7T 

.ct. fe « 

aw pokè’ ièéàèliàé. 

20 LET U*=CHR* 10+CHR* 10+CHR* 
93+CHR* 17+CHR* 0+CHR* 0+CHR* 7 
+CHR* 9+CHR* 63+CHR* 0+CHR* 0+CH 

R* *5 

30 POKE 16731,LEN U* 

*0 RRND USR 16720 


Listato 5. Esempio di utilizzo del terzo miglioramento 
contenuto nelle REM iniziali. 


POKE 16731,10 
POKE 16893,126 
FOR T=1 TO 2 
Ù =2 70 5 
I=U TO *0 STEP 5 
X=20-1/2 

U*=CHR* X+CHR* Y+CHR* ( 
>• -V lì -tCtiW.il Y V.X+ I i + V-HR$ VV*X 

) +CHP$ X +CHFJ * CY + IÌ +CHR* X+CHR0 

Y 

- USR 1672® 

I 
U 

16893,6* 


10 

20 

22 

25 

30 

*C 

50 

60 


FOR 

FOR 

LET 

LET 

LET 


76 

80 

90 

100 

110 


RRND 

NEXT 

NEXT 

POKE 

NEXT 

GOTO 


SS 


Listato 6. Composizione grafica di quadrati sfruttando 
il terzo miglioramento. Questo programma deve essere 
usato insieme alla routine in linguaggio macchina con¬ 
tenuta nelle REM dei listato 5. 

Listato 7. Programma BASIC per realizzare la rota¬ 
zione di figure piane con la routine in linguaggio mac¬ 
china del terzo miglioramento. Questo programma de¬ 
ve essere usato in unione alia routine contenuta nelle 
REM del listato 5. 


Listato 4. Programma per realizzare cubi in assonome¬ 
tria utilizzando il secondo miglioramento. Questo pro¬ 
gramma BASIC deve essere usato insieme alla parte in 
linguaggio macchina dei listato 3. 


l<^ PRINT "*********ROTRZIONI** 
*■****•*■*“ 

20 PRINT 

30_PRINT "IL'CENTRO DI ROTRZXO 
NE E»IL CEN TRO DELLO SCHERMO t 
31,21) - 
*0 PRINT 
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Seguito listato 7. 


50 

PRINT "NUMERO LPT1 DELLO 

FI 

- 1 *nvn 

tl . 


60 

INPUT L 


70 

CLS 


©0 

POKE 16731,2* <L-*-l> 


90 

DIM A(L + 1,2) 


100 

PRINT "INSERISCI ";L + 1;" 

SP 

OIGOLI DELLO FIGURO RISPETTO 

RL 

CENTRO" 


110 

PRINT , .. 


120 

FOR G = 1 TO L + i 


130 

PRINT "X";G; 


i4ù 

INPUT X 


150 

PRINT X.. "Y"; G; 


160 

INPUT Y 


170 

PRINT Y 


£00 

LET A t G , 1 ) =SOR CY*Y+X*X)*(S 

GN X + i* (X-©> ) 


£10 

IF RBS fi(G,l)>S1 THEN STOP 

320 

IF X=0 THEN LET fi(G,2)«PI/3 

*3GN 

Y 


£30 

IF x=0 THEN GOTO 250 


^«4 0 

LET R(G.2>^ATN (Y/X) 


350 

NEXT G 


£55 

FRST 


£60 

DIM Rt «13,2* (L+l> ) 


£65 

LET C=1 


370 

FOR G-0 TO 2*PI STEP PI/6 

360 

FOR U=i TO L+l 


390 

LET R*IC,2*U-1 TO ) =CHR* 

CR 

(U,l)*COS ( A ( U , 2 ) +G)+31)+CHR( 

tR 

CU,1)«SIN (RCU,2) +G) 4-31) 


300 

NEXT U 


310 

LET C=C+i 


320 

NEXT G 


325 

SLOU 


330 

CLS 


340 

FOR G=1 TO 13 


350 

POKE 16803,128 


360 

LET U*=fl* <G) 


370 

RRND USR 16720 


380 

FOR U=1 TO 10 


390 

NEXT U 


400 

POKE 16803.64 


<4- -LtL* 

RhnD USR 16720 


420 

NEXT G 


430 

POKE 16803,128 


440 

RRND USR 16720 



US 

N£> 

Y! 


1 REM E <RND7 > fcRNO* » 005 

. 2E£RND7- U^RND?/5i( CLERR UfcR 
S>2.i U ÌRNPHSRNOUÌÉ3NP? RAMO U^RND’7 
S®? ; (^RNOXCOS ffliRF - - 


?ND / LCIST 


LLLJ 


3 FOR 0=1 TO 

4 PRXNT "LKX 
HHYYYYUGDFFF" 

5 NEXT O 

IO LET U*=CHR* B+CHR* S+CHR* 
5+CHR* 7 

20 RRND U5R 16519 


Listato 8. Esempio di utilizzo dell'invertitore di carat¬ 
teri. 


Listato 9. Programma per la composizione di immagini 
e per la realizzazione di animazioni. 


1 REM Sàwli» ECRND7- U«RND?,*5; < 
CLEf'iR UfcRtlD'? ; FOR UjRNDMSRNDS R 
ETURN ?U*F.MD'? GOSUS S FAST 5TR$ 
?¥5- LPF.ON7 g?vFOR LPRINT WN 
dxcos ìMVinsx Stop . 

5 REM E%3ND- ?75 ; ( CLERR «F 

FOR S ?; ( CLERR FOR MCINKEY*E< 
RND? RETURN ?C =®4 LET 76BRNDTRN 
V (M RNDTRN UN «RND6BRNDU ( INKEY * 
XASN PEEK RMDM C.TNKEY9TRN .. 


Seguito listato 9. 

10 

PRINT "LRRGHEZZR DISEGNO 

20 

INPUT ,_X 

25 

PRINT LX 

30 

POKE 16516,LX 

40 

PRINT "LUNGHEZZA DISEGNO " ; 

50 

INPUT LY 

55 

PRINT LY 

60 

POKE 16517,LY 

80 

PRINT "X DI PARTENZA "; 

Q0 

Tf»JCM IT V 

95 

PRINT X 

100 

POKE 16514,X 

110 

PRINT “Y DI PARTENZA "i 

120 

INPUT Y 

125 

PRINT Y 

130 

POKE 16515,Y 

140 

PRINT "NUMERO IMMAGINI 

150 

INPUT N 

155 

PRINT N 

160 

POKE 16609,N 

170 

PRINT ,, 

180 

PRINT "COMPONI I DISEGNI LI 

NER PER LINER" 

190 

PBUSE 1000 

195 

CLS 

£00 

LET R*="" 

210 

DIM B*ÌLX) 

220 

FOR G = 1 TO N 

230 

PRINT RT 0,0;G 

240 

PRINT RT Y,X; 

250 

FOR U=1 TO LY 

260 

INPUT e* 

270 

LET R*=fì$+B* 

280 

PRINT TAB X; B* 

290 

NEXT U 

300 

PRINT RT 0,3;"OEUI CORREGGE 

RE ?■ 


310 

INPUT Q« 

320 

IF 0*="S" OR 0*="SI" THEN G 

OSU8 

1000 

330 

CLS 

740 

NEXT G 

350 

RRND USR 16595 

360 

FOR G=1 TO N 

370 

RRND USR 16657 

380 

FOR U=1 TO 8 

390 

NEXT U 

400 

NEXT G 

410 

STOP 

1000 

CLS 

1010 

LET K=(G-l)*LY*LX+1 

1020 

FOR J=0 TO LY —1 

1030 

PRINT U+l;"»";TRB 3;A*CK+U* 

LX TO K*(U+l)*LX-1) 

1040 

NEXT U 

1050 

PRINT RT 21,0;"QUALE LINER 

(PER 

FINIRE BATTI 0)" 

1060 

INPUT O 

1070 

IF U=0 THEN RETURN 

1080 

PRINT RT 21,0;"RISCRIVI LR 

LINEP 

1090 

INPUT B* 

1100 

LET At!K+LX*tJ-l) TO K+-LX*U 

-1J =B* 

1110 

PRINT RT U-1,3;B* 

1120 

GOTO 1050 


1 SRVE "CODICa" 

5 RRND USR 1657B 
_ IO REM ....ABCDE FRST STR$ l_N 
a"?UEN *SÉ'?'?l_N BTTS": SGN LPRINT 
TAN E£RND7G*~ LN BRND7BC RRND X 
R £ TURN 7C*=7 RETURN =C"77LN VRN 
D7S4 RRND X STOP LN E*2TBB RISO? 
RETURN |4 PRINT E£RNO>0RNDJ1 7? F 
OR ( PRXNT LN E*TBN . 


Listato 10. Routine per la protezione dei programmi da 
accessi non autorizzati. 


























Dump 1. Dump di controllo utile per 
inserire e verificare i codici del listato 
Assembly della figura I. Si tratta di 
una modifica alla routine di traccia¬ 
mento punti presentata nella puntata 
precedente. 


1) 

1672B 

_ 

42 

16721 

X 

12 

16722 

s 

64 


15733 

x 

125 


Sem- 

ss 

oc» 


16725 

m 

254 


16726 

ss 

92 


16727 

— 

32 


16726 

ss 

250 


16729 

ss 

125 


16730 

ss 

254 


16731 

X 

2 


16732 

ss 

32 


15733 

= 

EM-5 


•7 

— 

O rsr 


XS733 

— 

126 


16736 

m 

167 


16737 

= 

32 


1S73S 

ss 

240 


16739 

ss 

35 


1674.0 

x 

126 


1674-1 

= 

56 


16742 

~ 

132 


16743 

ss 

64 


16744 

= 

35 


16746 

I 

se. 


16747 

= 

133 


16743 

ir 

64 


16749 

ss 

42 


16750 

— 

54 


16751 

=: 

64 


16752 


34 


16753 

ss 

130 


16754 

X 

64 


•’ "7C7ET 

— 

■i o *=■ 


16756 

x 

146 


16757 

B 

54 


16720 

= 

42 

2) 

16791 

x 

12 

16722 

X 

64 


16723 

X 

126 


16724 

X 

35 


16725 

s 

254 


16726 

s 

92 


16727 

s 

32 


16728 

x 

£50 


16729 

ss 

126 


1673® 

s 

254 


16731 

X 

12 


* 

ss 

<-> 


16733 

— 

246 


16734 

ss 

35 


16735 

K 

35 


16736 

X 

31 


16737 

s 

31 


16738 

X 

71 


1673» 

X 

197 


16740 

s 

1 


18741 

s 

4 


16742 

ss 

0 


16743 

X 

17 


16744 

X 

130 


16745 

s 

64 


16746 

X 

237 


16747 

X 

176 


16746 

X 

229 


16749 

X 

205 


16750 

X 

146 


16751 

X 

64 


16752 

X 

225 



•= 

1 09 


16754 

x 

16 


16755 

X 

239 


16756 

“ 

201 


Dump 2. Dump di controllo della 
routine in linguaggio macchina della 
figura 2. 


1 REM RNDTRN £?RND7 R 

FTURN ?C PAUSE . 77>fcRND GOSUB ES 
/VrM>INK£Y*7 ,6 UNPLOT RNOU»RH 

D/: 5 GOSUB ?S UNPLOT RNDU—RND7UB 

RND—ECRND7- T-^Sj t CLERR ÙK»ND7;U 
*RNDMfeRNO PRST U3RND71CXNKEY» GO 

SUB BT-PRJNT FflST )B ©05UB 7SGN 

UtRND? GOSUB B? GOSUB PIUfcRNDXM 
fcRND4 5CROLL INKEYIO 7( CLS TR 

N >CINKEY* POR GOSUB BTRN . 

. 8BBBBBBBB3BBEJB8B. 

6 +CHR$~6 + “RR" H ^^ 3+CHR * 3 + CHR * 1 

20 POR K=1 TO 10 

RRRRRRRRfl5R^ RRRRRRRnPRRfi,: ' R ««««« 

BBBBBBBBBBSB" eBSBBBBBBBB,BBBBBBBB 

50 NEXT K 

60 RRNC* LISR 16524 

Listato 1 1 

. Programma per l’implementazione dello scroll bidirezionale. 


16720 

* 42 

16740 

■ 1 


16721 

= 16 

16741 

- 4 


16722 

= 64 

16742 

B 0 


16723 

= 126 

16743 

= 17 


16724 

■ 35 

16744 

= 130 


16725 

= 254 

16745 

B 64 


15726 

- 92 

16746 

= 237 


16727 

= 32 

: 574 7 

= 176 


16726 

= 250 

1674© 

« 229 


16729 

* 126 

16749 

= 205 


16730 

» 254 

16750 

b 146 


16731 

= 0 

16751 

« 64 


16732 

= 32 

16752 

= 225 


16733 

= 245 

16753 

= 193 


16734 

= 35 

16754 

= 43 


16735 

= 35 

16755 

= 43 


16736 

= 31 

16756 

b 16 


46737 

■ 61 

16757 

= 237 


16736 

= 71 

1Ó7S8 

= 201 


16739 

= 197 



Dump 3. 

Dump di controllo per inserire 

e verificare i codici del listalo 

Assembly della figura 3. 




16518 

• 0 

16556 

b 58 


16519 

- 42 

16559 

= 130 


16520 

= 16 

16560 

« 64 


S521 

= 64 

16561 

e 95 


16522 

= 126 

16562 

= £5 


16523 

- 36 


- 5© 


16524 

« 264 

16564 

= 133 


16525 

* 92 

16565 

= 64 


16526 

» 32 

16566 

b se 


16527 

= 250 

16567 

= 134 


16526 

« 126 

16568 

= 64 


16529 

b 254 

18569 

b 58 


16530 

= 4 

16570 

= 132 


16531 

= 32 

16571 

a 64 


16532 

= 245 

16572 

= 71 


16533 

* 35 

16573 

= 126 


16534 

S 38 

_. O W 1 ' ■+ 

— ^ Zie- 


16535 

* 17 

16575 

= 128 


16536 

= 130 

16575 

b 119 


16537 

b 64 

16577 

= 35 


16538 

x 1 

16S"?S 

= 16 


16539 

x 4> 

16579 

= 249 


16540 

X 0 

16580 

= 58 


16541 

= 237 

16581 

« 132 


16542 

- 176 

16562 

= 64- 


16543 

= 42 

16583 

= 95 


16544 

« 12 

5.6564 

“ 62 


16545 

- 64 

Ì6S86 

= 33 


16546 

• 35 

16586 

b 147 


16547 

= 22 

16SS7 

B 95 


16548 

= 0 

16588 

- 25 


16549 

= 56 

16589 

= 58 


16550 

» 131 

1659© 

= 134 


18551 

= 64 

16591 

» 64 


16552 

= 95 

16592 

= 61 



= 6 

16593 

= 208 


16554 

16555 

= 33 

> 25 

16594 

= 50 


16556 

B 16 

16596 

= 64 


16557 

= 253 

16597 

= 24 




16598 

= 226 


Dump 4. Dump contenente i codici della routine de! listato 8 pubblicata 
disassemblata nella figura 4 e contenuta nelle REM del listato 8. 
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Routine in linguaggio 
per ZX81 


16595 


48 

16596 

= 

132 

10597- 

E 

'54 

16590 

s 

ss 

16599 

sa 

0 

16690 

m 

69 

10601 

m 

92 

16608 

— 

33 

16603 

3= 

0 

16604- 

S 

0 

16605 

s 

25 

16006 

— 

16 

16607 

B 

253 

16606 

B 

6 

16609 

B 

0 

16610 

B 

835 

16611 

ss 

33 

16618 

S 

0 

16613 

m 

0 

16614. 

zz 

120 

16615 

— 

85 

16616 

s 

16 

16617 

m 

853 

16615 

ss 

One 

16619 

— 

50 

16680 

s 

16 

16681 

a 

65 

16688 

s 

48 

16683 

— 

16 

16684- 

— 

64 

16685 

s 

124 

16686 

B 

854 

16687 

s 

185 

16680 

B 

40 

16629 

B 

20 

16630 

s 

186 

16631 

2 

35 

16638 

B 

854 

16633 

S 

70 

16634- 

S 

38 

16635 

B 

S45 

16636 

B 

126 

16637 

SS 

207 

1S63S 

S 

38 

16639 

= 

246 

1664-0 

B 

36 

1664-1 

S 

226 

1664.8 

B 

186 

1664.3 

B 

38 

16644 

S 

841 

16645 

S 

35 

16646 

B 

34 

16647 

S 

163 

16640 

B 

64 

16649 

B 

201 

1 wSoB 

B 

©2 

16651 

S 

16 

16658 

S 

50 

16653 

S 

a 

16654 

B 

©4 

16655 

B 

201 

16656 

B 

0 

16657 

B 

205 

1665© 

B 

135 

15659 

B 

64 


B 

34 

16661 

B 

163 

16668 

S 

64 

16663 

B 

50 

16664 

S 

16 

16665 

S 

©5 

16666 

S 

61 

16667 

B 

202 

16668 

B 

SII 

16669 

B 

64 

16670 

2 

50 



L_. 

16678 

B 

65 

16673 


201 


Dump 5. Dump del programma per il 
trasferimento delle immagini su vi¬ 
deo, listato nella figura 5 e contenuto 
nella REM de! listato 9. 


Dump 6. Dump de! programma per la 
protezione del software mediante 
chiave di accesso. Il listato Assembly 
è presentato nella figura 6. Il pro¬ 
gramma caricato appare nella REM 
del listato IO. 


16550 

m 

38 

16551 

m 

39 

16552 

m 

40 

16553 

a 

41 

16554 

m 

42 

16555 

B 

229 

16556 

ss 

213 

16557 

B 

205 

16550 

B 

167 

16659 

B 

2 

16560 

B 

184 

16561 

B 

196 

16562 

m 

a 

16563 

B 

56 

16564 

B 

8 

16565 

m 

66 

16566 

a 

77 

16567 

s 

205 

?. 6568 

s 

189 

16569 

B 

7 

16570 

m 

78 

16571 

JB 

58 

16578 

B 

2 

16673 

B 

14 

16574 

B 

0 

16575 

E 

209 

16576 

a 

225 

16577 

m 

201 

16578 

B 

42 

16579 

B 

12 

16560 

B 

64 

16581 

B 

35 

16508 

m 

54 

16563 

B 

146 

16504 

a 

22 

16505 

B 

0 

16566 

s 

205 

10587 

ar 

171 

16588 

B 

64 

15589 

— 

121 

16590 

B 

167 

16591 

B 

40 

16598 

E 

249 

16503 

a 

61 

16594 

m 

254 

16595 

B 

117 

16596 

B 

40 

16597 

s 

23 

16598 

S 

20 

16599 

B 

122 

15600 

B 

254 

16601 

a 

20 

16602 

B 

40 

16603 

a 

11 

16604 

B 

113 

16605 

B 

35 

16606 

B 

205 

16607 

B 

171 

16608 

a 

64 

16609 

ss 

121 

16610 

ss 

167 

16611 

ss 

32 

16612 

a 

249 

16613 

ss 

24 

16614 

s 

227 

16615 

ss 

205 

16610 

B 

42 

16617 

s 

10 

16618 

ss 

195 

16619 

ss 

194 

16620 

* 

64 

16622 

- 

254 

16623 

B 

5 

16684 

m 

32 

16625 

B 

245 

16626 

s 

42 

16627 

s 

12 

1662© 

a 

64 

16629 

= 

17 

16630 

ss 

166 

1663 2 

se 

64 


Seguito dump 6. 


1663 b> 

B 

(3 

16633 

SS 

5 

16634 

E 

35 

16635 

E 

78 

16636 

m 

235 

16637 

B 

126 

16638 

B 

185 

16639 

B 

32 

16640 

s 

23® 

1664 1 

a 

35 

' C p ,4 J-t 

— 

■**. ■** e- 

166*4.3 

B 

16 

16644 

B 

245 

16645 

B 

S05 

16646 

B 

43 

16647 

B 

10 

16648 

“ 

201 


16S1S 

B 

62 

16519 

S 

16 

16520 

38 

50 

15521 

a 

0 

16522 

ss 

64 

15583 

'5 

201 

; 7- c- -r> / 

-- 

•* T’ 

16S85 

B 

16 

16S26 

— 

64 

16527 

B 

124 

16528 

B 

254 

16529 

E 

125 

16530 

B 

40 

16531 

B 

242 

16532 

S 

126 

18533 

B 

35 

16534 

a 

254 

j-353s 

E 

92 

16536 

B 

32 

16537 

B 

245 

16538 

s 

126 

16539 

a 

254 

16540 

E 

6 

16541 

B 

3*3 

16542 

B 

245 

16543 

S 

1 

16544 

a 

4 

3 5545 

B 

0 

16546 

s 

35 

16547 

B 

35 

16548 

E 

17 

16549 

B 

130 

16550 

tt 

64 

16551 

S 

237 

16552 

E 

176 

1SSS3 

E 

126 

16554 

S 

254 

16555 

E 

55 

16556 

E 


16557 

B 

4 

16558 

E 

62 

16559 

B 

0 

16560 

S 

24 

16561 

B 

2 

16562 

B 

62 

16563 

SS 

7 

16564 

E 

50 

16565 

B 

18 

16566 

E 

65 

16567 

E 

35 

16568 

B 

126 

16569 

a 

254 

16570 

B 

39 

16571 

m 

40 

16572 

B 

11 

16573 

B 

33 

16574 

E 

0 

16575 

B 

25 

16576 

B 

34 

16577 

B 

£52 

18578 

S 

64 

16579 

E 

58 

16580 

E 

131 

16581 

B 

64 

16582 

B 

24 

16583 

E 

14 

16584 

E 

33 

16585 

S 

237 

16586 

B 

82 

16587 

B 

34 

16588 

s 

252 

16589 

a 

64 


Dump 7. Dump della routine in lin¬ 
guaggio macchina per lo scroti, lista¬ 
ta nella figura 7 e contenuta nella 
REM de! listato II. 


















Routine in linguaggio 
macchina per ZX81 


Seguito dump 

7. 


13090 


58 

10091 

B 

131 

10092 

K 

64 

10093 

s 

95 

16594- 

C 

58 

16593 

S 

133 

16096 

B 

64 

16597 

= 

131 

16598 

= 

*2 

16599 

B 

12 

16609 

B 

04 

16601 

B 

35 

1660& 

m 

22 

16603 

s 

0 

16604. 

s 

95 

16605 

B 

6 

16606 

B 

33 

16607 

s 

25 

16608 

— 

16 

16609 

t= 

253 

16610 

B 

58 

16611 

B 

130 

16612 

SS 

64 

16613 

m 

95 

16614- 

X 

25 

16615 

S 

58 

16616 

x 

133 

18617 

xs 

64 

16618 

X 

50 

16619 


130 

16620 

X 

64 

16621 

K 

229 

16622 

■ 

58 

16623 

m 

132 

16824 

s 

64 

16625 

s 

79 

16626 

55 

17 

16627 

B 

40 

16628 

B 

65 

16629 

ss 

237 

ÌS630 

ss 

176 

16631 

cc 

225 

16632 

n 

229 

16633 

B 

17 

16634 

S 

33 

16635 

B 

0 

16636 

SS 

237 

16637 

K 

82 

16638 

B 

209 

18639 

B 

58 

15640 

■= 

132 

16641 

et 

64 

16642 

SS 

79 

16643 

X 

237 

16644 

x 

176 

16845 

s 

79 

166*6 

X 

237 

16647 

X 

66 

1664© 

X 

58 

16649 

52 

130 

1665© 


64 

. Z.&5Ì 

SS 

61 

16652 

X 

50 

16653 

S 

130 

16654 

St 

64 

18655 

X 

32 

18656 

-r 

231 

16657 

X 

24 

16658 

X 

0 

16659 

X 

65 

16660 

SS 

54 

1*661 

-r 

0 

16662 

X 

35 

16663 

X 

16 

16664 

X 

251 

16665 

X 

201 

16666 

X 

17 

16667 

X 

4® 

15668 

s= 

65 

16669 

X 

235 

16670 

X 

237 

16671 

X 

176 

15ST2 


231 



Immagine 1. Immagine dell'unione dei pumi periferici con il centro dello 
schermo, prodotta dal listato 2. 



Immagine 2. Esempio della rotazione 
di un quadralo con sfasamento degli 
argomenti trigonometrici. 




18) 

19) 


Immagini 3-4-5. Riquadri di dimen¬ 
sione 19 x Ì9 necessari per realizzare 
l'effetto tunnel con il programma per 
l’alternanza del fotogramma. La di¬ 
stanza tra una cornice e l’altra è di 
due caratteri e la cornice più esterna 
misura 19 caratteri nella prima figu¬ 
ra, 15 nella seconda e 17 nella terza. 
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I 


SEGRETI DEI PERSONAL 


TEXAS TI99/4A 


Diagrammi in TI BASIC 

di Sergio Borsani 

Una delle più comuni rappresentazioni grafiche è 
data dai diagrammi a strisce o ortogrammi. Si tratta 
di rappresentare una serie di misure con delle strisce o 
delle colonne la cui lunghezza sia proporzionale alle 
misure stesse. Rispetto alla rappresentazione di risul¬ 
tati numerici sotto forma di tabella, un diagramma 
presenta il vantaggio di una maggiore immediatezza 
e consente di cogliere con un colpo d’occhio la pro¬ 
porzione tra i valori rappresentati o l’andamento di 
un fenomeno al quale essi si riferiscono. Il modo più 
semplice per risolvere il problema con un computer 
consiste nello stampare uno stesso simbolo ripetuta- 
mente in modo da formare qualcosa che assomigli ad 
una striscia. Alcuni computer, come il Commodore 
64, posseggono già dei simboli grafici preprogram¬ 
mati adatti allo scopo, con l’home computer è tutta¬ 
via semplicissimo programmare un carattere perso¬ 
nalizzato e ripeterne la stampa in una qualsiasi posi¬ 
zione dello schermo. Se si desidera che le strisce 
risultino verticali si potrà definire il seguente caratte¬ 
re: 

CALL CHAR (128, “7F7F7F7F7F7F7F7F”) 

Esso non occuperà l’intera matrice di 8 x 8 pixel ma 
possiede un margine a sinistra in modo che le strisce 
che formeranno il diagramma risultino leggermente 
separate una dall’altra. La stampa si ottiene poi con 
l’istruzione: 

CALL VCHAR (R, C, 128, V) 
dove R indica la riga e C la colonna, 128 indica il 
carattere precedentemente programmato e V il nu¬ 
mero di volte in cui viene ripetuto lo stesso carattere, 
verticalmente, partendo dall’alto verso il basso. 


Dimensionamento automatico 

Un buon programma per la tracciatura di grafici 
dovrebbe possedere la caratteristica del dimensiona¬ 
mento automatico, cioè la striscia che rappresenta la 
misura maggiore dovrebbe automaticamente occu¬ 
pare la massima estensione consentita dal video, 
mentre tutte le altre risulteranno in proporzione più 
piccole. 

Nell’esempio riportato nel listato 1 i valori variano 
secondo una legge esponenziale. La funzione definita 
alla linea 160 è la formula che si usa per calcolare 
l’interesse composto di un deposito in denaro. 1000 
rappresenta il capitale iniziale,. 14 è il tasso di interes- 


100 REM FROVA 1 ORTQBRAMMA 
110 REM ******************* 

120 CALL CLEAR 

130 CALL CHAR (ILE, "7F7F7F7E7F7F~ 7 F7F" ) 
140 CALL CHAR (136, "FF"> 

150 CALL COLOR(13,5,1) 

160 DEF F <T; = 1000*<1+.14) T 
170 MAX=F(28) 

180 U=MAX/20 

190 CALL HCHAR(22,3,136.28> 

200 POR J = 1 TO 213 
210 LU!MG=1NT(F (J> /U> 

220 IF LUNG=0 THFN 240 

270 CALL VCHAR(22-LUNG.J+2,12B,LUNG> 

240 NEXT J 

250 FRINT TAB(7);BATTI UN TASTO " 
260 CALL KEY( 0,K , S> 

270 IF S=0 THEN 260 
280 CALL CLEAR 
290 END 


Listato 1. Programma "Prova 1 Ortogramma”. 

se (14%) e T è il numero degli anni. Poiché il pro¬ 
gramma è fatto per stampare un grafico con 28 colon¬ 
ne è chiaro che in questo caso particolare il valore 
massimo da rappresentare si trova in corrispondenza 
di T = 28, cioè F (28). 

È per questa ragione che alla linea 170 questo 
valore è stato preso come massimo. In altri casi si 
dovrà seguire una via diversa e andrà benissimo una 
piccola routine come quella riportata dal manuale a 
pagina 60. Chiamato MAX il valore massimo, se si 
desidera che la colonna più lunga non superi la lun¬ 
ghezza di 20 caratteri, sarà U = MAX/20 il valore 
unitario, cioè il valore di ogni tratto elementare che 
forma la striscia. La stampa dell’intero diagramma è 
compiuta dal ciclo FOR NEXT alle linee 200-240. 
LUNG è la lunghezza o il numero di caratteri di ogni 
striscia e l’istruzione 230 è fatta in modo che tutte le 
colonne abbiano la base posta in corrispondenza 
della riga 21 dello schermo. Eseguendo il programma 
del listato 1 si noterà che l’aspetto del diagramma 
non è molto soddisfacente. Il problema è che la lun¬ 
ghezza delle strisce varia per valori discreti abbastan¬ 
za elevati e che misure differenti possono essere rap¬ 
presentate con colonnine formate dallo stesso nume¬ 
ro di caratteri. Il diagramma potrebbe essere miglio¬ 
rato se si potesse disporre di caratteri che rappresen¬ 
tano una parte frazionaria di quello fino ad ora usa¬ 
to. 


Definiamo altri simboli grafici 

Si osservi il listato 2. Oltre al carattere 128 ne 
troviamo altri sette (il carattere 136 serve solo a 
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<00 REM PROVA 2 ORTOGRAMMA 
110 REM *#**##*#****-#'*#*** 

120 CALI CLEAR 

: ■ ! L Gl (AR ( ! 28, " 7F7F 7F7F7F7F 7F7F " ) 
-50 CALI. C( IAR ■ 1 29, "000000000000007F" ) 
150 CALI. CHAR <130, "0000000000007F7F" > 
1 60 COLL CHAR (131,"00000000007F7F7F ") 
170 CALI CHAR (132,"000000007F7F7F7F" ) 
1 QO COLL CHAR (173,"0000007F7F7F7F7F" ) 
i 90 CALI CHAR (134,"00007F7F7F7F7F7F " ) 
200 CALI CHAR(1 SS, "007F7F7F7F7F7F7F" ) 
210 FALL CHAR< 136,"FF" ) 

220 CALI COLORÌ 13,5, 1) 

27 > QEF F ( T— 1000 » ( 1 + . 1 4 ) ~T 
24!. MAX-F (28) 

250 U-MAX/20 

260 CALL HCHAR122,3,136.28) 

270 FOR J=1 TD 28 
2B0 U.JNG“INrtF'.J)/U) 

290 IF LUNG=0 THEN 310 

CALL VCHAR (22-LUIMB, .1+2, 128, LUNGI 
310 D [FT -F ( J) /LI -L UNG 
720 PF=tNT(8*DIFF> 

330 IF PF-0 THEN 350 

340 FALL HCHAR(21-LUNE,J+2,128+PF> 

350 NCXT J 

360 PR1 NT TAB(7);"/BATTI UN TASTO>" 
370 CAM KEY(O, I ,, S> 

380 IF 8=0. THEN 370 
390 CALL CLEAR 
400 END 


Listato 2. Programma "Prova 2 Ortogramma”. 


tracciare la base del diagramma). Ogni simbolo grafi¬ 
co occupa una matrice di 8 x 8 punti video (pixel), 
ebbene, il primo è alto 8 pixel e rappresenta il caratte¬ 
re unitario, gli altri sono alti rispettivamente 1, 2, 3, 
..., 7 pixel. Ora che si posseggono i caratteri adatti, il 
nostro compito sarà quello di stampare per ogni 
striscia un certo numero di caratteri “unitari”, come 
è stato fatto in precedenza, e, sopra questi, collocare 
il carattere “frazionario” più adatto. Senza riscrivere 
l’intero programma, è sufficiente aggiungere le linee 
dove vengono definiti i nuovi caratteri (vedi listato 
2). Il programma procede poi allo stesso modo fino 
alla linea 300. Alla linea successiva si calcola la diffe¬ 
renza (DIFF) tra il valore che si voleva rappresentare 
e quello che effettivamente si è rappresentato o me¬ 
glio tra la lunghezza della colonna quale doveva 
essere e quale effettivamente è. Tale differenza è sem¬ 
pre inferiore all’unità ed è espressa in decimi. Tutta¬ 
via i simboli grafici definiti variano tra di loro di uno 
o più pixel ed un pixel rappresenta un ottavo di 
carattere, non un decimo. La linea 320 del program¬ 
ma trasforma la parte decimale in un numero com¬ 
preso tra 0 e 7. Un esempio numerico chiarirà meglio 
questo punto. Se la differenza DIFF è uguale a 0.4, 


sarà PF = INT (8 ★ 0.4), cioè PF = 3 e alla linea 340 
del programma si stampa il carattere 128 + PF, cioè il 
131 che è alto i 3/8 del carattere unitario ed è quello 
che meglio rappresenta i 4 decimi mancanti alla co¬ 
lonnina. I valori utilizzati da questo programma so¬ 
no gli stessi usati in precedenza ma la rappresentazio¬ 
ne grafica è ora notevolmente più precisa. 


COMMODORE 64 

Il 64 e la memoria nascosta 

di Alessandro Guida 


È noto a tutti che il 64 è pubblicizzato dalla Com¬ 
modore come un sistema da 64 Kbyte di RAM. Al 
contrario, all’accensione sullo schermo appare un 
deludente “38911 BYTES FREE”. 

Ma niente paura i restanti 24 Kbyte di RAM ci sono, 
anche se nascosti. 


I banchi di memoria 

Il microprocessore di cui è dotato il 64, il 6510, ha 
un bus indirizzi da 16 bit. Questo significa che è in 
grado di indirizzare 65536 locazioni, cioè 64 Kbyte di 
memoria. Di questi 64 Kbyte però, 16 sono riservati 
alla ROM contenente l’interprete BASIC e il sistema 


bit 0:1 bit 0=0 bit 0:1 < LORRO 
bit 1:1 bit 1:1 bit 1:0 < MIRRO 
bit 2:1 bit 2:1 bit 2:1 < CHREN 

SFFFF 

SE000 
$□000 
$C000 

$R000 


$8000 


Figura 1. Le tre più importanti configurazioni della 
memoria del C 64 con il relativo POKE nel registro 1. 


POKE 1,55 POKE 1,54 POKE 1.53 

(conF. standard) 



Il II II II II II 

H 4 ! » -- - -M H j l 
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Il 64 e la 
memoria 
. nascosta 



Figura 2. Altre due possibili configurazioni della me¬ 
moria del C 64 con il relativo POKE nel registro 1. 

operativo e altri 4 Kbyte sono a disposizione dei due 
circuiti CIA (Complex Interface Adapter) 6526. Per¬ 
ciò con i metodi tradizionali per la RAM rimarrebbe¬ 
ro a disposizione solo 44 Kbyte. 

Una soluzione, utilizzata su numerosi computer, 
per aumentare le capacità di memoria consiste nel 
mettere della memoria aggiuntiva in parallelo a quel¬ 
la già esistente. Gli indirizzi saranno quindi gli stessi, 
ma ci sarà una porta che si occuperà di selezionare un 
banco o l’altro di memoria. 

Il microprocessore 6510 nasce già con tale porta, e si 
presta molto bene ad eseguire la gestione della me¬ 
moria in modo “switching”. 


La memoria aggiuntiva del 64 

Nel C 64 tale “memoria fantasma” è stata posta in 
corrispondenza delle ROM di sistema, a partire dal¬ 
l’indirizzo $A000 (40960) fino a $FFFF (65535). In 
effetti di questi 24 Kbyte di memoria quelli da $C000 
(49152) a $CFFF (53247) sono sempre disponibili. 
Possiamo verificàre ciò facendo: 

POKE50000, 127: PRINT PEEK (50000) 
Otterremo come risposta 127 a significare che questa 
zona di RAM è perfettamente accessibile. Provate 
con altri valori per convincervene. 

Poiché, però, questa zona è separata dalla memo¬ 
ria utilizzata normalmente dai programmi BASIC, 
diventa il luogo ideale per memorizzare routine in 
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cooo 





i ROUTINE LETTURA RAM > SA000 

cooo 






cooo 





t *FB.SFC ■ Indirizzo lettura 

cooo 





i SFO * rlipost* 

cooo 






cooo 

78 


SEI 


i Disabilita Interrupt 

C001 

A5 

01 

10A 

*01 

; Carica registro 1/0 alcropr. 

C 00 3 

48 


PHA 


i Lo sai va nel 1o stack 

C004 

29 

f 0 

AND 

*FD 

i Azzera bit 1 

C006 

85 

01 

STA 

*01 

i Modifica reg. 1/0 e abilita RAM 

C0Q8 

AO 

00 

LDY 

&00 


C00A 

B1 

FB 

LDA 

( SEB ), 

; Carica contenuto locazione 

cooc 





; puntata da *FB,*FC 

cooc 

85 

F0 

STA 

»FD 

,■ Lo «ette in $FD (253 dee.) 

C00E 

68 


PLA 


i Recupera valore originale 

coor 

65 

01 

STA 

SOI 

; registro 1/0 alcropr. 

con 

58 


cu 


i Riabilita Interrupt 

C 012 

60 


RTS 




Figura 3. Disassemblato della routine in linguaggio 
macchina presente nel programma del listato I. 


linguaggio macchina che non verranno sicuramente 
rovinate dal BASIC stesso. 

Tutto ciò non è valido per le altre zone occupate, 
normalmente, dalla ROM. 

Se proviamo a dare: 

POKE60000, 127: PRINT PEEK (60000) 
avremo come risultato 235, a conferma di quanto 
detto. 

E necessario perciò passare dalla ROM alla RAM 
corrispondente prima di potervi memorizzare dei da¬ 
ti. 


La porta I/O del 6510 

Abbiamo detto che la selezione dei banchi di me¬ 
moria è effettuata dalla porta di I/O del 6510. 
Questa si compone di due registri: un registro di 
direzione (DDR) e un registro dati. Fisicamente cor¬ 
rispondono, rispettivamente, alle locazioni 0 e 1 della 
memoria. 

Il registro di direzione indica quali bit della porta 
sono di Input e quali di Output. 

Se un bit di tale registro è uguale a 1, vuol dire che il 
corrispondente bit della porta sarà utilizzato per ope¬ 
razioni di output. Uno zero in un bit del DDR indica, 
invece, che il bit dello stesso ordine del registro dati 
sarà posto in ricezione. 

Il valore normale del registro di direzione è: 
00101111 

pari è 47 in decimale. A parte il bit 4 gli altri predi¬ 
spongono la porta per operazioni di uscita dati. 

In ogni caso, non dovrete preoccuparvi di questo 
registro, e se avrete il dubbio di averlo modificato 
accidentalmente sarà sufficiente dare POKE 0,47 per 
riportare tutto a posto. 

Nel registro dati, i primi tre bit si occupano della 
selezione dei banchi di memoria, mentre gli altri sono 














































Il 64 e la 
memoria 

_ nascosta_ 

dedicati alla gestione del registratore. 

Sarà quindi sufficiente fare un POKE nella locazione 
1 per passare dalla ROM alla RAM corrispondente o 
viceversa. 

Ognuno dei tre bit corrisponde ad un blocco di 
ROM/RAM. Il primo si riferisce a 8 Kbyte di RAM 
nascosta sotto l’interprete BASIC, da $A000 (40960) 
a SBFFF (49152); il secondo od altri 8 Kbyte di RAM 
sotto il sistema operativo, da $E000 (57344) a SFFFF 
(65535). Il terzo, infine, a 4 Kbyte di RAM in corri¬ 
spondenza della ROM del generatore di caratteri. 
Ecco il contenuto del registro 1: 
bit 7 6 5 4 3 2 1 0 

0 0 110 111 valori standard (55 in dee.) 
bit significato 

0 LORAM: 1 attiva ROM BASIC (SA000, SBFFF) 
0 attiva RAM SA000, SBFFF 

1 HIRAM: 1 attiva ROM S.O. KERNAL 

0 attiva RAM $E000, $FFFF + 
LORAM 

2 CHREN: 1 attiva CIA I/O 6526 ($D000, 

$DFFF) 

0 attiva ROM generatore caratteri 

3 Linea uscita dati per registratore 

4 Interruttore tasto play registratore 

5 Linea controllo motore registratore 

6,7 Inutilizzati. 

La selezione dei banchi 

Come appena visto, all’accensione del 64 il registro 
1 contiene il valore 55 in decimale che abilita le due 
ROM e i due CIA. Se si volesse selezionare la RAM 
da $A000, a SBFFF (LORAM) sarebbe sufficiente 
digitare: 

POKE 1, 54 

Invece, per attivare la HIRAM occorrerebbe dare: 
POKE 1, 53 

Nota: La selezione della RAM da $E000 a 
SFFFF comporta la selezione automatica, anche del¬ 
la LORAM. 

La situazione per il blocco da 4 Kbyte, SD000- 
DFFF, è invece leggermente più complessa perché 
qui convivono tre tipi di memoria differenti. 

' Quando il bit 2 della porta I/O del 6510 è alto, è 
abilitata la lettura/scrittura nei registri dei CIA. Se, 
invece, il bit 2 è basso (POKE 1,51) viene abilitata la 
ROM (ovviamente solo per lettura) contenente le 
immagini dei caratteri. 

L’attivazione di tale ROM è utile quando si vogliono 
ricopiare alcuni caratteri in un’altra zona di RAM. 
Comunque il chip che si occupa della gestione dello 
schermo accede periodicamente a questa ROM, sen¬ 
za che l’utente se ne debba preoccupare, e indipen¬ 


dentemente dal contenuto del bit 2. 

Per attivare, infine, la RAM compresa tra SD000 e 
DFFF è necessario rimettere a 1 il bit 2 e a 0 i bit 0 e 1. 

In pratica si darà: 

POKE 1, 52 

In questa ultima configurazione si hanno 24 Kbyte di 
RAM continui da SA000 a SFFFF. 

A questo punto, probabilmente, avrete già tentato di 
dare uno dei POKE appena visto in modo diretto. 
Ciò avrà provocato il blocco del sistema. 

Niente paura, spegnete il 64 e riaccendetelo, tutto 
tornerà in ordine. 

I POKE visti non è possibile darli in modo diretto, 
perché nel momento in cui viene disabilitato il BA¬ 
SIC o il sistema operativo, il computer nel tentare di 
eseguire le routine scritte nella ROM (ricezione carat¬ 
teri, interpretazione comandi, gestione schermo) vi 
troverà, al loro posto, della RAM contenente dei dati 
assolutamente casuali. Risultato: blocco del sistema. 

Prima di vedere come risolvere questo problema 
sottolineamo una caratteristica del 64. Se si esegue un 
POKE (o un STA in linguaggio macchina) in una 
zona contenente della ROM, il microprocessore con¬ 
serverà i dati nella RAM corrispondente. Il problema 
di selezionare i vari banchi riguarda, quindi, la lettu¬ 
ra e non la scrittura di dati nella RAM fantasma. 
Riassumendo: 

1) qualsiasi tentativo di lettura di una zona di memo¬ 
ria contenente della ROM, prima di averne seleziona¬ 
to la RAM, riporta il contenuto della ROM all’indi¬ 
rizzo specificato e non della RAM; 

2) qualsiasi tentativo di scrittura, invece, modificherà 
la RAM sottostante e non la ROM. 

Questa caratteristica intrinseca del sistema ci for¬ 
nisce una possibile soluzione del problema accennato 
prima. 

E possibile con un semplice ciclo leggere il conte¬ 
nuto dell’interprete BASIC o del sistema operativo e 
ricopiarlo nella RAM. In questa maniera, quando si 
seleziona la RAM il microprocessore non va in crisi 
poiché continua a trovare le routine che gli servono al 
loro posto. Il fatto che ora siano su RAM, invece che 
ROM, non fa alcuna differenza. 

Se, ad esempio, vogliamo attivare la RAM da $A000 
a SBFFF basterà la seguente linea a ricopiare tutto 
l’interprete BASIC: 

FOR I = 40960 TO 49151: POKE I, PEEK (I): 
NEXT I 

L’istruzione POKE scrive nella RAM mentre il 
PEEK legge la ROM. 

Adesso possiamo dare tranquillamente il comando: 
POKE 1, 54 

senza che il computer si blocchi. Se invece si vuole 
utilizzare la RAM da SE000 a SFFFF dovremo rico¬ 
piare anche il contenuto della ROM dall’indirizzo 
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Listato 1. Routine per accedere alla RAM nascosta del 
64. 
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Listato 2. Programma esempio utilizzante la routine 
del listato 1. 

S.O. provocando il blocco del computer. 

L’unica soluzione per utilizzare la RAM nascosta per 
conservarci dati è di scrivere una routine in linguag¬ 
gio macchina. 

Riportiamo, nel listato 1, un programma che può 
servire allo scopo, anche utilizzato come routine al¬ 
l’interno di altri programmi. 

Il suo uso è molto semplice: basta mettere nella varia¬ 
bile AD l’indirizzo di cui si vuole leggere il contenuto 
e chiamare la routine. Il risultato sarà nella variabile 
CO%. 


57344 fino al 65535. 

Tutto ciò va bene se vogliamo, per esempio, appor¬ 
tare delle modifiche al BASIC. Non va, invece, asso¬ 
lutamente usato per memorizzare dei dati poiché, 
questi, modificherebbero le routine del BASIC o del 


Per memorizzare i dati va semplicemente fatto un 
POKE nella locazione scelta. 

Le zone di memoria utilizzabili sono: $A000, $BFFF 
(40960, 49151) e $E000, $F000 (57344, 65535). I 4 
Kbyte da SD000 è preferibile non utilizzarli. 


SHARP 


Giochiamo con i numeri di linea 


di Mauro Lenzi 


Questa volta parleremo della gestione dei numeri 
di linea. 

I numeri di linea occupano nel Text Buffer due byte; 
le locazioni corrispondenti al numero di linea della 
prima linea di un programma sono 45105 e 45106. 
Digitiamo questo programma: 

10 BEEP 3 

Ora andiamo a vedere il contenuto delle due locazio¬ 
ni suddette: troveremo in 45105 il numero 224 ed in 
45106 il numero 16. 

Proviamo ora ad aumentare di uno il contenuto di 
45105: 

POKE 45105,225 

Se andiamo a vedere il programma, troveremo, sor¬ 
prendentemente: 

110 BEEP 3 

Aumentando ancora di uno il contenuto di questa 
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locazione, troveremo che il numero di linea sarà 
diventato 210, e così via... 

Possiamo quindi concludere che il valore delle cen¬ 
tinaia di un numero di linea è definito dal primo byte 
secondo la formula: 

centinaia = PEEK (primo byte del numero di linea) — 

224 

In esadecimale questi numeri risultano più mnemoni¬ 
ci infatti 128 = &E0; così se vorremo una centinaia 
porremo nel primo byte del numero di linea &E1, se 
ne vorremo due porremo &E2, ecc.. 

Per esempio se digitiamo: 

POKE 45105, &E9 

la nostra istruzione BEEP 3 sarà finita alla linea 910. 
Andiamo ora ad esaminare l’altro byte e digitiamo: 
POKE 45106,17 

il numero di linea sarà diventato 911. 

Tuttavia le cose non sono così semplici, infatti se 
mettiamo in questo byte il numero 15, non ci trovere¬ 
mo, come potremmo aspettarci: 

909 BEEP 3 
ma una cosa molto più strana: 

90 BEEP 3 

Ancora una volta però i numeri esadecimali ci vengo¬ 
no in aiuto; immaginiamo di volere cambiare il nu¬ 
mero di linea in 987: il byte delle centinaia è ancora a 
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posto, infatti la locazione 45105 contiene 133, che in 
esadecimale corrisponde a &E9, perciò dobbiamo 
cambiare solo la locazione 45106: 

POKE 45106, &87 
il nostro programma sarà diventato: 

987 BEEP 3 

Concludendo possiamo quindi dire che per cambiare 
le decine e le unità di un determinato numero di linea, 
dobbiamo modificare il secondo byte corrispondente 
a quel numero di linea secondo la formula: 
decine ed unità = POKE secondo byte, & numero 
desiderato. 

Dunque è sufficiente introdurre il numero deside¬ 
rato, facendo finta che sia esadecimale, cioè senza 
trasformarlo realmente nel corrispondente numero 
esadecimale. Se vorremo che il nostro programma 
ridiventi: 

10 BEEP 3 

procederemo perciò così: 

POKE 45105, &E0 (mette le centinaia a posto) 
POKE 45106, &10 (mette a posto le decine e unità) 
Qualche volenteroso potrà a questo punto, appro¬ 
fondendo un po’ gli studi, realizzare un programma 
di Renumber. Io invece, ho in serbo ancora qualche 
sorpresa. 

Proviamo a mettere in questi due byte cifre sballate: 

POKE 45105, &EA 
ed andiamo a vedere cosa è successo: 

.10 BEEP 3 

abbiamo ottenuto un numero di linea “decimale”! 
Proviamo adesso: 

POKE 45105, &EB 

il risultato è: 

E10 BEEP 3 

che ne pensate di un numero di linea “esponenziale”? 
Naturalmente il più bello è che queste istruzioni fun¬ 
zionano senza problemi, infatti se diamo un RUN, 
possiamo udire chiaramente i tre Beep desiderati. 

Lascio alla vostra fantasia e curiosità provare a 
immettere in queste due locazioni i numeri più curiosi 
e vi garantisco che troverete dei risultati molto strani 
e simpatici. 

Io mi limito ad aggiungere questa “stranezza”: 
poniamo a zero il byte delle decine ed unità: 

POKE 45106, 0 

poniamo ora ad 1 il byte delle centinaia: 

POKE 45105, 1 

se ora andate a guardare il programma vi troverete: 

01 

senza che venga visualizzata l’istruzione BEEP 3, 
tuttavia dando un RUN potremo udire ugualmente i 
tre Beep: il programma c’è, ma non si vede! 
Abbiamo così trovato un efficace sistema per proteg¬ 
gere i nostri programmi. 


ZX SPECTRUM 


LLIST e COPY in doppia altezza 


di Marcello Spero 


Questa puntata è dedicata alla folta schiera dei 
possessori di una ZX Printer, utilizzata in unione ad 
uno Spectrum. L’incredibile macchinetta, infatti, se 
da un lato lascia alquanto a desiderare sul piano della 
qualità di stampa, dall’altro offre possibilità illimita¬ 
te di usi strani ed inconsueti, essendo totalmente 
dipendente, per il suo funzionamento, dal software 
esterno. 

La routine che vi propongo ha due possibili usi, 
entrambi estremamente interessanti. Per prima cosa 
può produrre listati su stampante in doppia altezza, 
cioè con caratteri larghi otto pixel, come di consueto, 
ma alti sedici. Utilizzando la medesima routine, a 


1 REM 

******************************** 
* STRMPR IN DOPPIO ALTEZZA * 
ff*m*»HH»*J******HUf*t**t**ii 


versione per Lo spectrum 16 K 

può' essere ri locata modificando 
le istruzioni CLEAR e LET 
in linea 10 

1® CLEAR 32519: LET y=32520 
20 READ X : IF x <>-1 THEN POKE 
a,X: LET y=y+l. GO TO 20 

30 FOR X =3759 TO 3763: POKE y .. 
PEEK x; LET y=y+l: NEXT X 

4.0 FOR X =3762 TO 3766: POKE y, 
PEEK X: LET y=y + l: NEXT X 

50 FOR x=3764 TO 3765: POKE y, 
PEEK X : LET y=y+l. NEXT X 

60 READ X: IF X<>-1 THEN POKE 
y x: LET y=y+l; GO TO 60 
70 STOP 

60 DATA 62,1,24-,26,42,63,92,22 
3 , 205.175 , 13,225.126,230,192 .. 1S£ 
.205,164,25.213,205,35,24.33,137 
,92,62,25,150,135,135,135,71, 243 
, -1 

90 DATA 224,62.4,211,251,251,2 
4,168,-1 

100 REM 

************ 

* ISTRUZIONI* 
************ 

110 REM 

POKE 32521,4; 

RANDOMIZE USR 32520 

stampa le prime 4 linee 
di pixel dello schermo. 

120 REM 

RANDOMIZE USR 32524 
liste l'intero protra mr- : 


Listato 1. Il programma di caricamento. 
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LLIST e 
COPY in 
doppia altezza 


10 

CLERR 32519: LET y= 

32520 


20 

READ X; IF XO-1 THEN POKE 

y.X: 

LET y=y+l; GO TO 20 


30 

FOR X =3759 TO 3763: 

POKE 

y. 

PEEK 

X: LET y=y*l; NEXT 

X 

40 

FOR X =3762 TO 3768: 

POKE 

y. 

PEEK 

X: LET y=y+l: NEXT 

X 

50 

FOR X=3764 TO 3785: 

POKE 

y, 

PEEK 

X; LET y=y+1; NEXT 

X 



60>RERD X: IF XO-1 THEN POKE 
y,X; LET y=y+l; GO TO 60 
70 STOP 

80 DfiTR 62,1.24,28,42,83,92,22 
9,205,175,13,225,126,230,192,192 
,205,184,25,213,205,85,24,33,137 
.92,62,25,150,135,135,135,71,243 

i “1 

90 DRTR 224,62,4,211,251,251,2 
4,188,-1 


Listato 2. Parte del programma di caricamento ripro¬ 
dotto in doppia altezza. 

partire da un diverso punto di ingresso, possiamo 
inoltre ottenere copie su carta (hard copy) dell’intero 
schermo o di parte di esso, sempre in doppia altezza: 
una COPY ingrandita nel senso dell’altezza e, volen¬ 
do, parziale. 

Veniamo ora ad un esame più approfondito di 
ciascuna delle due funzioni. Per quanto riguarda la 
prima, il suo uso è facilmente intuibile; la stampanti- 
na Sinclair, infatti, riesce spesso a produrre caratteri 
che sanno più di “geroglifici” che di qualcosa di 
comprensibile. In questi casi, specialmente se ad esse¬ 
re poco chiare sono le linee contenenti dati, o addirit¬ 
tura linee DATA, possono sorgere dei problemi. Pro¬ 
durre stampe ingrandite nel corso di un programma 
non è un problema usando il BASIC ed i caratteri 
grafici definibili; diversa è invece la situazione nel 
caso dei listati. Le linee che compongono un pro¬ 
gramma, infatti, contengono oltre ai caratteri che 
vediamo riprodotti sullo schermo quando ne ottenia¬ 
mo il listato, numerosi caratteri non stampabili, con 
funzione di controllo o per l’indicazione del valore 
delle costanti numeriche in virgola mobile. Per que¬ 
sto è consigliabile l’uso del linguaggio macchina. 

Il programma visualizza una per volta le linee del 
programma in cima allo schermo, e quindi le ripro¬ 
duce usando una versione modificata della routine di 
COPY presente in ROM. 
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Questo procedimento, apparentemente macchino¬ 
so, è necessario per eliminare i caratteri non stampa¬ 
bili di cui dicevamo prima. Per la visualizzazione 
sullo schermo, infatti, viene usata la routine ROM 
adoperata normalmente dal sistema per questo sco¬ 
po, che esegue automaticamente l’eliminazione. A 
questo punto interviene la routine di COPY, che 
differisce dall’originale per il fatto che ciascuna riga 
di pixel (ogni linea ne contiene otto) viene copiata 
due volte, realizzando così la doppia altezza. 

Dopo che ciascuna linea è stata riprodotta, lo 
schermo viene ripulito e il processo si ripete con la 
linea successiva, fino all’ultima. Da questa descrizio¬ 
ne del procedimento usato emerge l’unica limitazione 
del sistema, e cioè l’impossibilità di riprodurre cor¬ 
rettamente linee di programma che siano più lunghe 
di un intero schermo; mi sembra comunque che si 
tratti di una limitazione più teorica che pratica, poi¬ 
ché, sebbene sia tecnicamente possibile realizzare li¬ 
nee di programma di qualsiasi lunghezza, tutti coloro 
che hanno tentato di manovrare linee di lunghezza 
superiore a dieci righe sanno come qualsiasi opera¬ 
zióne, sia essa di aggiunta di caratteri o di correzione, 
diventi talmente lenta da risultare esasperante. Mani¬ 
polare una linea che si estende oltre i limiti dello 
schermo, oltretutto, significa non vedere ciò che stia¬ 
mo scrivendo, come ci viene fatto notare dal sistema 
con l’apposito segnale acustico (il manuale lo chiama 
RASP, che vuol dire gracidìo ...). 

Per ottenere la funzione di LLIST ad altezza dop¬ 
pia di un programma basta dare RANDOMIZE 
32524 se (ed è questo il caso dello Spectrum 16 Kbyte) 
avete caricato la routine all’indirizzo indicato nel 
programma di caricamento, o “primo byte della rou¬ 
tine” più quattro se avete collocato altrove il pro¬ 
gramma (che è infatti completamente rilocabile, co¬ 
me vedremo più avanti). Durante il funzionamento è 
possibile interrompere in qualsiasi momento, me¬ 
diante il BREAK, la stampa; ovviamente sarà poi 
necessario ricominciare tutto da capo. 

Come abbiamo detto all’inizio, la medesima routine 
può essere utilizzata per copiare totalmente o parzial¬ 
mente quanto è presente sul video, ottenendone una 
copia ad altezza doppia. Per far questo occorre acce¬ 
dere alla routine da un altro punto di inizio, dopo 
aver determinato mediante una POKE quante righe 
di pixel vogliamo riprodurre. La nostra scelta può 
spaziare da una sola riga, nel qual caso otterremo due 
righe stampate, fino a 176, cioè l’altezza dell’intero 
schermo. Nel caso vi dimentichiate di specificare que¬ 
sto valore verrà preso per buono l’ultimo usato, o il 
valore uno nel caso la routine sia stata appena carica¬ 
ta. 

Per ottenere questa funzione è necessario, natural¬ 
mente dopo aver riempito lo schermo con quanto 












LLIST e 
COPY in 
doppia altezza 


— f .TR _ 1 

Id a,01 

; ingresso 



, COPY 


J r , MflIN 

, s a i l a al 



, prcig. princ 

Eri TR_S 

ld hi, IPROS) 

. ingresso 



,LLIST. hi 


push hi 

■punta all' 



, :nìzic prò? 

i-O OP 

cali CL-.RLL 

, . 0L-RF > 


MR IN 


COPY- 1 


pop hi 
Id a , (hi) 
and CO 
re t nz 

cali NXT-ONE 
push de 
cali OUT-LIN 
l d hi, (SPOS) 

Id s,19 
sub(hL) 
add a , a 
a d d a,a 
add a , a 
l d b, a 
d i 

Id hi, 4.000 
push hi 


esegue CLS 
punta alla 
linea cor r. 
il pn. grami:': 
e finito? 
se si' ritC' 
na al Basi c» 


<19B8 > 
altrimenti 
de punta 
alla linea 
<1855> 
print linea 
punta all' 
ultima Li oca 
occupata , 
c orop lements 
a 25 e motti 
plica per S 
ottenendo il 
n. di pixel 


:OPY-2 


push 

push 

push 


bc 
h l 
bc 


be' il con t 
dei cicli 
disabi tita 
le interrili, 
l'inizio dei 
DISPLRY Filo¬ 
sa l V a due 
volte il pu.n 
tatore alla 
linea e il 
con tatore di 
linee di 
; P i x e i 


cali CPY -Li N ; < 05F 4- > 

cop i a su 

pop bc ; stampante 

;una riga di 
pop hi , pixel per 

;d u e volte, 

cali CPY-Llri; recuperando 
; ogni volta 
pop bc ,h l e bc 

pop h l 

ine h 

l d a , h 

and 3? 

jr nz , COPY-2,sa lta avanti 
l d a , l 
add a,2 0 
id l , a 
ccf 

s b c a , a 
and FS 
add a,h 
l d h , a 
djnz COPY- 
Id a,84 
out ;F8J ,a 
e i 

jr loop 


.modifica hi 
; pe r che' 
ipunti alla 
; riga success. 
; s e h < 7 h =h + - 


altrimenti 
sagiorna hi 
; a se conda 
i de i •■terzo" 
; di schermo 
; occupato 


; sa ita se le 
; righe non 
sono ancora 
; fini te 
;se no ferma 
,il motore 
; abi li la le 
; interruzioni 
; sa l ta indie - 
; t ro a LOOP 


i numeri fra <> sono gU 
indirizzi delie corrispon¬ 
denti routine di sistema 


Listato 3. Assembly della routine. 


vogliamo riprodurre, specificare innanzitutto il nu¬ 
mero di righe da riprodurre, con POKE 32521, n 
sempre se la collocazione della routine è quella indi¬ 
cata, o POKE “inizio routine” più uno per qualsiasi 
altra collocazione. 

Con n indichiamo il numero di pixel, numero che, 
come abbiamo visto, può variare da uno a 176. An¬ 
che in questo caso è attivo il BREAK, che può quindi 
essere usato in qualsiasi momento. 

Come potete osservare dal confronto fra le figure 1 
e 2, questa tecnica di riproduzione offre interessanti 
possibilità grafiche; il listato 2, invece, evidenzia l’au¬ 
mento di chiarezza che si ottiene con un listato in 
doppia altezza. Il confronto è facile, trattandosi del 
programma di caricamento, lo stesso riprodotto nel 
listato 1, oltretutto contenente linee DATA. 

Vediamo adesso il programma di caricamento. La 
sua prima linea contiene l’istruzione CLEAR per 
l’abbassamento della RAMTOP e l’istruzione LET 
che definisce la locazione di inizio della routine. I 
valori dati si riferiscono alla miglior posizione possi- 



Figura 1. Hard copy normale di un grafico. 


bile per la versione da 16 Kbyte, e cioè subito sotto 
l’area della grafica definibile. La routine, come ac¬ 
cennato prima, è comunque completamente rilocabi- 
le, poiché non fa uso di istruzioni di salto assolute; 
basta quindi variare i valori della CLEAR e della 
LET per collocarla nella posizione più opportuna, in 
particolare nel caso possediate la versione da 48 
Kbyte. 

Il programma appare, nel suo insieme, alquanto 
inconsueto. Ciò è dovuto al fatto che, come abbiamo 
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LLIST e 
COPY in 
doppia altezza 


Figura 2. Hard copy in doppia altezza dello stesso 
grafico. 


detto, la routine di COPY differisce dall’originale 
contenuta nella ROM solo in alcuni punti. Per rende¬ 
re più semplice il caricamento si è perciò pensato di 
copiare semplicemente dalla ROM le parti uguali, 
caricando dalle DATA solo le parti modificate. 

Dopo aver ricopiato (e controllato ...) il program¬ 
ma vi consiglio di salvarlo subito su cassetta, prima di 
provarne il funzionamento, per due ragioni. Se qual¬ 
cosa, infatti, dovesse andare storto, per un errore di 
trascrizione, molto probabilmente la macchina an¬ 
drà in “crash” e sarete costretti a spegnerla, perden¬ 
done il contenuto; salvandolo su cassetta non sarete 
costretti a ricopiare nuovamente tutto il programma, 
ma potrete limitarvi a cercarne gli errori. La seconda 
ragione riguarda invece la necessità che la routine 
venga conservata nella sua forma originale, cioè sen¬ 
za le modifiche introdotte con le POKE; in questo 
modo il valore corrispondente al numero di righe di 
pixel da copiare sarà, in assenza di una nostra specifi¬ 
ca, uguale ad uno (qualcuno ama dire che il valore di 
“default” è uno). 

A questo punto non vi resta che dare RUN per attua¬ 
re il caricamento. Provatene quindi il funzionamen¬ 
to, e se tutto è a posto date NEW per eliminare il 
programma di caricamento, ormai inutile; basterà 
infatti dare le apposite RANDOMIZE per ottenere le 
operazioni volute. 

Per coloro che fossero particolarmente interessati 
all’architettura del linguaggio macchina usato, il li¬ 
stato 3, riporta l’assembly con i relativi commenti, 
comprendenti gli indirizzi, all’interno della ROM, 
delle routine di sistema richiamate. I rispettivi punti 
di ingresso sono ENTR1 per la COPY, e ENTR 2 per 
la LLIST. 
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ONTRIBUTI 
DEI LETTORI 



Mini monitor per ZX81 


Il lettore Marino Cappelletti di Como ha inviato' 
questo breve ma utile programma che permette di 
visualizzare agevolmente il contenuto della memoria 
in codice esadecimale. 

Il “monitor” vero e proprio è costituito dalla routine 
in linguaggio macchina del listato 1, che deve essere 
caricata a partire dall’indirizzo 16514 e occupa 87 
byte. Essa produce la stampa sul video del contenuto 
di 66 locazioni di memoria, come in figura 1, a partire 
da quella indicata dal contenuto delle locazioni 
16445, 16446. 

Il programma del listato 2 serve da caricatore e, dopo 
avere inserito i codici del listato 1, occorre cancellare 
le linee da 20 a 60 (senza dare il NEW!) e inserire il 
programma del listato 3. Dopo il RUN il programma 
chiede l’indirizzo della prima locazione di memoria 
da cui iniziare il “dump” e poi accetta i comandi “6” 
o “7” per lo scrolling locazione per locazione, “5” o 
“8” per esaminare il precedente od il successivo bloc¬ 
co di 66 locazioni, “C” per copiare il contenuto del 
video su stampante e “N” per inserire un nuovo 
indirizzo di partenza. 


2R 

0C 

40 

11 

00 

00 

19 

EB 

2R 

30 

40 

01 

03 

16 

ES 

C5 

81 

02 

03 

7E 

32 

OC 

40 

21 

3C 

40 

3E 

88 

ED 

67 

C6 

1C 

12 

1B 

OD 

20 

FS 

OE 

02 

3E 

83 

68 

20 

08 

3E 

16 

12 

1B 

12 

1B 

12 

1B 

23 

10 

E3 

CI 

85 

28 

0C 

21 

2R 

08 

19 

EB 

E1 

23 

22 

3D 

40 

18 

C7 

06 

16 

0D 

28 

09 

EB 

11 

RI 

02 

R7 

ED 

52 

18 

ER 

E1 

C9 





Listato 1. Codici esadecimali del “Mini monitor”. Oc¬ 
corre usare questi codici come input per il programma 
del listato 2. 


10ÌREM 000080000 0000000000000(3 
00000000000000000000000000000000 
00000000000008800008000800000000 

20 Fon N=l6514 TO 16800 
30 INPUT H* 

4-0 POKE N,16*CODE H$+COPE H$ < 3 
) —4-7© 

50 NEXT N 
60 PRINT " O . K • ** 


Listato 2. Caricatore per i codici esadecimali del lista¬ 
to 1. È possibile usare questo programmino anche per 
caricare i vostri codici macchina. 


Listato 3. 

2015LOU 

ito IF P LEN H H*Ot THEN GOTO 30 
50 LET D=COCE H**4096+CODE H* I 
2) *256+COUE Hf (3) t!6+CODE HS<4)- 


122332 

60 POKE 164.4.6, INT (D/-256) 

70 POKE 164-4.5 , D-2564INT (D/256 

) 

80 RRND USR 16514 

90 IF INKEY$="5" THEN LET D =D - 

66 

100 IF INKEY S = "6 " THEN LET D=0- 

X U0 IF INKEYJ="7" THEN LET D=D + 

""^ìaO IF INKEY*=”8" THEN LET D=D + 

66 

130 IF INKEY $ = ”C” THEN COPY 
140 IF INKEYJ = "N” THEN GOTO 30 
150 GOTO 60 


Listato 3. Master che gestisce l’input dell'indirizzo in 
notazione esadecimale e le funzioni di scrolling a loca¬ 
zioni singole oppure a blocchi. 


4-000 *- 

-FF 

4016-BD 

402C-FF 

400 1- 

--C0 

4017- 4\ 

4020-02 

4082- 

- -FC 

4818-06 

402E-69 

4003- 

-7C 

4019-C0 

402F-D2 

4084- 

- 00 

48 IR-77 

4038-©7 

4005- 

- 7D 

40 1B -45 

4031-0C 

4.006- 

--00 

40 1C-77 

4032-00 

4007- 

-50 

40 1D-45 

4033-16 

4006- 

--00 

401E-40 

4034-13 

4009- 

--00 

40 IF -5D 

4035-ED 

400R- 

-14 

4020-40 

4036-00 

4O0B - 

- -00 

4021-00 

4037-00 

400C- 

--50 

4022-02 

4038-BC 

400D- 

- -42 

4023-00 

4039-a 1 

400E - 

— 51 

4024-00 

403R-18 

400F 

-42 

4325 -FÉ 

4335 --CO 

4010- 

--69 

4026-EF 

4 83C-00 

4011- 

--45 

4027-0F 

403D-3D 

4012- 

- 08 

4028-37 

403E-40 

4013- 

- 4 1 

4029-SE 

4 03F-00 

4014- 

-77 

402R-41 

4040-00 

4015- 

- -45 

4 028-FE 

4341 - 00 


Figura 1. Esempio di stampa prodotta dalla routine 
linguaggio macchina del listato 1. 


Conversione veloce decimale-binario 

Quante volte si cerca una routine di conversione da 
inserire nei programmi più disparati! Di solito se ne 
inventa una sul momento, ma si rischia di cadere 
nell’inefficienza. 

Marco Spada di Milano ci ha suggerito questa 
veloce routine di conversione da decimale a binario 
che funziona con qualsiasi numero di bit. Il punto di 
maggiore interesse è l’uso delle linee 14, 50, 65 e 70 
invece del solito ciclo FOR ... NEXT, e la conseguen¬ 
te uscita dal loop quando il risultato parziale è 0, che 
velocizza la conversione. Si noti anche che il dimen¬ 
sionamento del vettore alla linea 16 viene ripetuto per 
ogni numero al fine di azzerare il contenuto del vetto¬ 
re stesso. Il programma gira su Spectrum. 


10 

INPUT •■minerò da convertire 

S n 

12 

IF 

n >65535 OR n <0 THEN PRIN 

T "numero non accettato”. GO TO 

18 



13 

REM 

conve rsione 

14 

LET 

n * INT I n +. 5) 

16 

DIM 

b < 16 '. 

18 

LET 

X =1 

20 

LET 

pejMT rn ✓ai 

38 

LET 

c ~p *a 

40 

LET 

b <x ) =n -c 

50 

LET 

X =X Fi 

60 

LET 

n -p 

65 

IF 

n =0 THEN GO TO 80 

70 

GO TO 20 

75 

REM 

stampa 

88 

FOR 

i=16 TO 1 STEP -1 

90 

PRINT bti); 

100 

NEXT i 

110 

PRINT 

120 

GO 

TO 10 


Listato 1. Routine di conversione decimale-binario. 
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SERVIZIO SOFTWARE 



P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 



P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple II 

2 

Editor/Assembler 
in BASIC 

CBM 3032 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

4 

Gioco del calcio 

CBM 3032 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CBM 3032 

14 

Tool-Kit 

C 64 


Prezzo 

Codice 

Supporto 

30.000 

1 

Disco 

40.000 

3 

Disco 

40.000 

4 

Disco 

25.000 

5 

Disco 

30.000 

6 

Disco 

25 000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 


Per richieder* I programmi In contrassegno, pagando direttamente al postino la cifra Indicata, Inviare II seguente tagliando 

Spedire In busta chiusa a Gruppo Editoriale Jackson - Via Roselllnl, 12 ■ 20124 Milano 


Inviatemi i seguenti nastri e/o dischi con i programmi Lj gruppo editoriale JACKSON 
pubblicati su P.S. 10 



Cod. I I I I 1 11 a L.. Cognome 

Cod. I I I I I ~l 1 al. Nome ... 

Cod. I I I I I I J a L. Indirizzo 

Cod. 1 I I I 1 I 1 al. CAP. 

Città. 

Spese postali (contributo Asso ) L 2.000 

TOTALE L. 


che pagherò al postino alla consegna del pacco. 


Firma 














































Apple 


Cambio/vendo programmi per Apple II. Dispongo di 
vasto software. Rispondo a chiunque mi contatta. Te¬ 
lefonare ore serali 0481/81254 o scrivere a Vittor 
Franco. 

Franco Vittor - Via Grabizio, 35 - 34170 Gorizia - Tel. 
0481/81254. 


Vendo software per Apple II di tutti i tipi o scambio con 
hardware. Scrivere per lista a: 

Marco Carrubba - Via M. Campionesi. 29 - 20135 
Milano - Tel. 02/585294. 


Scambio moltissimi programmi di giochi per Apple, 
circa un centinaio. L'offerta vale solo per Roma. 
Karim Sako - Via Lazzaro Spallanzani, 4/6 - 00161 
Roma - Tel. 06/3275666. 


Cambio/vendo programmi per Apple di tutti i tipi. In¬ 
viate la vostra lista, risponderò con la mia. 

Carlo Casalicchio - Via M. Velino, 24 (Residence Ame¬ 
no) - 60100 Ancona 


Vendo Apple II compatibile, monitor 9", language 16 
kb, drive, controller, interi, parallela, stampante Oki 82 
grafica. Il sistema L. 3.500.000. Vendo Sharp PC 1211 
con stampante CE122 L. 270.000. 

Fortunato Petrocelli - C.so Lione, 44 - 10141 Torino. 

Vendo possibilmente in blocco programmi Apple II 
gestionali, ingegneria grafica, data base, Utilities, tan¬ 
tissimi giochi. Dispongo anche di parecchi manuali. 
Richiedere elenco o telefonare a: 

Maurizo De Gioanni - C.so S. Santarosa, 67 - 12100 
Cuneo - Tel. 0171/61839. 


Vendo/cambio programmi per Apple (giochi, utilità, 
gestionali, eco.), anche su commissione. Scrivere per 
informazioni (Residence Colle Meno). 

Carlo Casalicchio - Via Velino, 24 - 60100 Ancona. 


Commodore 


Vendo modulo per inserire tre cartucce e/o espan¬ 
sioni nel VIC 20 L. 70.000. Penna ottica L 50.000. 
Scambio programmi per VIC 20. 

Riccardo Cappa - Via Tetti None. 1 -10090 Baldissero 
T.se (TO) - Tel. 9408954 (ore pasti). 


Scambio/vendo/compro programmi per C64. 
Antonio Juliano - Via Rossi, 74 - 80056 Ercolano (NA) 
- Tel. 081Z7395987 (ore serali). 


Vendo PET/CBM 2001 Commodore causa cambio 
sistema completo di monitor, registratore 8 kRAM, 12 
kROM, 4 libri sul PET, 8 cassette di software + sound 
box imballaggio originale; tutto per L. 500.000 trattabi¬ 
li. 

Angelo Vianello - Via S. Croce, 2158 - 30100 Venezia - 
Tel. 041/25723. 


Vendo/scambio software VIC 20 su cassetta. Posseg¬ 
go numerosi programmi in L.M. Posseggo anche lista¬ 
ti di programma d’ogni tipo per ZX 81. Spectrum, Te¬ 
xas, Apple. Scrivere e/o telefonare ore serali a: 
Christian Ferlini - Via Aeutine, 32 - 00121 Ostia Lido - 
Tel. 06/5697207 (ore serali) 


Vendo/compro/cambio programmi per VIC 20 in 
configurazione base sia su cassetta che listati. Prezzi 
modici. Rispondo a tutti. Per scambio programmi in¬ 
viatemi vostra lista, io invio la mia a tutti. 

Maurizio Mercati - Via Risorgimento, 8 - 57025 - 
Piombino (LI) - Tel. (0565) 35875. 


Vendo a L 100.000 alimentatore stabilizzato 0 + 30 
volts con due strumenti oppure cambio con espansio¬ 
ne di memoria per VIC 20. 

Daniele Vasi - Via Ofanto, 9 - 48100 Ravenna - Tel. 
0544/63453. 


Compro per C64 programmi di ogni genere solo se su 
cassetta e con particolare riguardo al software riguar¬ 
dante musica. Inviare liste. 

Giuseppe Moliterni - Via Vico Fornaci, 8 - 75100 Ma- 
tera - Tel. 0835/211874 (ore pomeridiane). 


Vendo VIC 20 + registratore 1530 C2N + alimentatore 
+ modulatore RF + cassetta mole attack + libro guida; 
tutto a L. 400.000, usato poco, due mesi di vita. Possi¬ 
bilmente zona Roma. 

Giovanni Nitti - Via S. Giuliano-Terme, 145 - 00148 
Roma - Tel. 06/5234908 (ore 20-21). 


Vendo meravigliose penne ottiche con soft. Commo¬ 
dore 64. inoltre dispongo centinaia di programmi, di 
giochi e di utilità tra cui Pascal, Logo, Pilot, Forlh, 
Macroas. Simon, Bas 40, Exbas2.2, Lastone. ecc. 
Benedetto De Benedetti - V ie Curreno. 57/1 - 10133 
Torino - Tel. 011/6509128. 


Compro per VIC 20 configurazione base, listati di 
qualsiasi tipo di programma meglio in L.M. per giochi, 
a bassissimo costo. Inviatemi le vostre liste con relati¬ 
vo prezzo. 

Andrea Mamini - Via Cantagalli, 19 - 48018 Faenza 
(Ravenna) - Tel. 25474. 

Vendo/cambio programmi su disco o cassetta per 
Commodore 64. Scrivere o telefonare per lista ore 
ufficio. Giochi originali americani e Utilities. 
Vincenzo Coscia - Vie G. Marconi, 40/A - 80059 
Torre Del Greco - Tel. 081/7011988. 


Compro/cambio/vendo programmi per Commodore 
64. Cerco inoltre programma "nukewar”. Scrivere per 
elenco programmi o per contatti. 

Sergio Fattorini - Via Monte alla Rena, 17 - 57016 
Rosignano Solvay (LI). 


Per sfruttare il vostro CMB64 vi occorre software po¬ 
tente con testi specializzati. Cedo alla metà del prezzo 
di listino: Simon’s, Basic, Easy, Script 64, Diary, Word, 
Protrhee, Plus. 

Luca Montalbano - Via Malagrida, 14 - 65100 Pescara 
- Tel. 085/34196. 


Compro software scientifico per il Commodore 64. 
Cerco manuali possibilmente italiani sul 64. 

Mauro Fallanca - Via Dante, 28 - 18039 Ventimiglia - 
Tel. 0184/355590. 


Cerco CBM 64 purché 6581 integro e periferiche sem¬ 
pre per CBM 64. Cerco anche solo 6581 (integrato 
musica). 

Aldo locco - Via Ciccotti, 10 - 85100 Potenza - Tel. 
0971 / 20468 (ore pasti). 


Vendo Scacchi, Spriteman, Frogger, Scramble64, Pa¬ 
nie 64, Startrek, Calcio, Biliardo, Skirace. Per CBM 64 
Monopoly a L. 15.000 cad. inoltre vendo Simons Basic 
(su nastro) a L. 45.000 con fotocopie istruzioni. 
Antonio Munari - Via Del Mille. 4 - 35100 Padova - Tel. 
049/660227. 


Vendo/cambio per VIC 20 programmi ad alta risolu¬ 
zione grafica, come Pac-man, Bonzo, Scramble ealtri 
200 circa. Posseggo anche di utility, matematici, so¬ 
nori e dimostrativi, il tutto a prezzi modesti. 

Antonio Liuni - Via Parco dei Principi, 50 - 70010 
Casamassima (Bari) - Tel. 080/671708 (dopo ore 20). 


Compro software per VIC 20 (max 5 k) faccio affari 
solo per telefono e nella zona di Roma. 

Diego Bardari - Roma - Tel. 06/8123684 (ore 14- 
15/20-21). ' 


Vendo/scambio/compro programmi per Commodo¬ 
re 64. Posseggo inoltre 300 programmi, in particolare 
videogiochi, rispondo a tutti. 

Daniele Forcella - Via Carducci, 83 - 65100 Pescara. 


Vendo per VIC 20: 3 k RAM Super Expander L. 60.000; 
Cartuccia “The sky is falling" L. 20.000; libro “Guida al 
VIC 20” della E.V.M. L. 20.000; modulo di espansione 
VIC 1020 al miglior offerente. 

Walter Collini - Via Frassineto - 52040 Arezzo - Tel. 
0575/367105 (dopo ore 15). 


Cambio/vendo programmi di giochi per Commodore 
64. Solo zona La Spezia. 

Alessandro Mecchia - Via V. Veneto, 168 - 19100 La 
Spezia - Tel. 0187/37247. 


Vendo programmi per Commodore 64. 

Paolo Bigon - Via San Marco, 177/A - 35020 Padova - 
Tel. 049/629117. 


Vendo VIC 20 + espansione grafica e RAM "Super 
expander" + il libro “Alla scoperta del VIC 20" + 
interfaccia per qualunque registratore. Il tutto a sole L. 
240.000 (prezzo del VIC inespanso). 

Alberto Ferrari - Via S. Michele Del Carso, 22 -10135 
Torino - Tel. 011/341119. 


Vendo per C-64 calcio della Commodore in 3-D e 
A.M.C. (Attack of Mutant Camels). Tutti e due intera¬ 
mente in L.M. su cassetta a L. 15.000. Inviare richieste 
a: 

Massimo Bilancia - Via P. Amedeo. 49 - 70100 Bari - 
Tel. 080/238443. 


Compro programmi per CBM 64 listati o cassette di 
giochi utility ecc. Vendo "Alla scoperta dello ZX Spec¬ 
trum" nuovo mai usato L. 15.000 (anziché L. 22.000!). 
Inviare lista programmi a; 

Nicola Franchetti - P.zza Libertà. 5 - 35036 Monte- 
grotto Terme (PD) - Tel. 049/794783. 

Cerco amici possessori CBM 64 provincia Vicenza 
per scambio idee, esperienze e programmi. Ho già dei 
contatti. 

Murizio Baratella - Via S. Francesco. 11 - Cas. Post. 
139 - 36061 Bassano del Grappa (VI) - Tel. 
0424/25888. 


Vendo VIC 20 + registratore Commodore + super 
expander + monitor linguaggio macchina + cartridge 
gioco scacchi + joystick + molli programmi e libri 
bellissimi; in blocco a L. 450.000. 

Amedeo Fasano - Res. Sagittario - 20090 Sagrate (MI) 
- Tel. 02/2130331. 


Vendo per Commodore 64 cartridge hesware (Maze 
Master) a L 50.000. Nuova, ancora imballata. Listino L. 
75.000. 

Giov. Battista Fornari - Via Villoresi, 8 - 20099 Sesto S. 
Giovanni (MI) - Tel. 02/2474960. 


Cambio/vendo programmi per il CBM 64 o 20, inviate¬ 
mi la vostra lista. Ho molti programmi americani e 
stranieri. Vendo Jammin, Jet, Pack, Magic miner per il 
VIC. 

Roberto Oselladore - Via Passo S. Boldo, 35/2 - 
30030 Favaro Veneto (Venezia) - Tel. 631106. 

Compro espansione per alta risoluzione 3 kbyte - 
VC1211N da chi vuol disfarsene ad un prezzo non 
superiore a L. 50.000. Chiunque fosse interessato mi 
telefoni. 

Mario Calò - Via Degli Svevi, 49 - 75100 Matera - Tel. 
219700 (ore 14,30-16,00). 

Vendo cartuccia per Commodore 64 "Sea wolf". Ri¬ 
chiedere l'uso del paddle. Prezzo trattabile. Telefona¬ 
re! 

Alessandro Mazzoli - Via Cavour. 29 - 43100 Parma - 
Tel. 35365. 


Dispongo di numerosi programmi per Commodore 64, 
originali americani, su nastro e su disco. Molti di que¬ 
sti in L.M. 

Roberto Onesto - Via G. Pascoli, 31 /B - 30038 Spinea 
(VE) - Tel. 041/991516. 


Vendo/cambio molti programmi per VIC 20. 

Luigi Lippiello - Via Nicola Fornelli. 2 - 80132 Napoli - 
Tel. 081/415601. 
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Cambio programmi per Commodore 64 di ogni tipo. 
Possiedo gestionali utility giochi. Telefonare e/o 
mandare lista. 

Piero Volpi - Via Anconetana, 6 - 06016 S. Giustino 
(PG) - Tel. 075/856858 


Vendo programmi di utility e giochi. Dispongo inoltre 
di manuali inglesi tradotti in italiano. 

Marcello Cesi - Via Magliana Nuova, 178scalaB/22- 
00146 Roma - Tel. 06/5266009. 


Vendo per VIC 20 giochi su cassetta anche inediti a L, 
2.500 cad. più costo della cassetta. 

Fantone Michele - Via Privata Assarotli - 16043 Chia¬ 
vari - Tel. 0185/305195 (ore pasti). 


Vendo computer VIC 20; un mese di vita. Perfette 
condizioni. Regalo a chi lo acquista (oltre a cavetti 
vari) registratore L2N + 2 libri di Basic + 2 cassette 
piene di giochi. Prezzo L. 420.000. 

Gerardo Ventura - V.le Regina Elena, 82 - 65100 Pe¬ 
scara - Tel. 085/23374. 


Scambio programmi, listati, idee per Commodore 64. 
Vendo a poco prezzo Simon's Basic su cassetta. Man¬ 
date le vostre liste. 

Maurilio Caracci - Via N. Morello, 48 - 90144 Palermo 
- Tel. (091) 266011. 


Vendo VIC 20 + registratore 2CN + espansione 16 k + 
manuale d’uso in italiano + interconnessioni variea U. 
450.000. 

Antonio Schillaci - Via Noventa, 10 - 36100 Vicenza - 
Tel. 0444/504718 (ore pasti). 


Vendo VIC 20 mai usato causa doppio regalo a L. 
190 000. 

Nino Ardizzone - Via Arenazze. 18 - 66100 Chieti - Tel. 
0871/41877. 


Cerco in Toscana possessori C8M 64 per scambio 
esperienze e software. Cerco anche eventuali Clubs 
in Versilia o in Toscana. Scrivere a: 

Marco Pasquini - Via Dei Mille. 81 - 54036 Marina di 
Carrara (MS) - Tel. 55038. 

Cerco espansione grafica 3 kRAM per VIC 20 a buon 
prezzo, a chi interessa cedo cartridge draw poker + il 
resto. 

Mario Regina - Via Mazzini. 3 - 58015 Orbetello(GR) - 
Tel. 0564/867441 (ore pasti). 


Vendo CBM 4032 schermo 9” fosfori bianchi con 
floppy 2031, stampante 4022, registratore CN2 e am¬ 
plificatore altoparlante e interfaccia per RTTY. 
Ferruccio Bassini - Via Casanova, 12/A - 26020 Ca- 
vatigozzi (Cremona) - Tel. 59077. 


Vendo per VIC 20 interfaccia con registratore Cerco 
registratore per VIC 20 originale 2CN. Urgente. 
Stefano Guerrini - Via Montone, 11 - 48026 - Russi 
(Ravenna) - Tei. 0544/581318. 


Vendo per CBM 64 Simon’s Basic (114 comandi) + 
manuale a L. 38.000 su cassetta e L. 40.000 su disco. Il 
noto “Basic 4.0" che aggiunge al CBM 64 i comandi 
del CBM 8000 a L. 36.000 su cassetta e L. 38.000 su 
disco (con manuale). Spedizione contrassegno. Per 
informazioni aggiungere bollo. 

Francesco D’angelo - Parco Argo, 15/4 - 81031 Aver¬ 
sa (CE). 


Causa passaggio ad unità superiore vendo CBM 64, 
registratore, 100 programmi su cassetta fra i migliori in 
commercio a prezzi stracciati. 

Domenico Riccardi - Via delle Quercie. 1/B - 61016 
Pennabilli - Tel. 0541/918312 (ore 20 in poi). 


Cerco possessori CBM64 per scambio idee, program¬ 
mi, esperienze. 

Particolare interesse per la grafica e per i programmi 
statistici. 

Luca Tamburro - Via Mazzini, 67 - 80045 Pompei (NA) 
- Tel. 081/8631918. 


Vendo/cambio giochi e package per VIC 20 inespan¬ 
so 8-16 k. Sono in possesso di oltre 60 giochi originali 
americani. Il software è disponibile su cassetta o di¬ 
sco; invio liste a L. 1.200. 

Roberto Salerno - Via IV Novembre, 24 - 28068 Ro- 
mentino (NO) - Tel. 60452. 


Vendo VIC 20 + registratore C2N + super expander 
con 3 k + videogame gorf e scacchi + joystick point 
master, il tutto in imballo originale (4 mesi di vita) a L 
560.000 trattabili. 

Telefonare dalle 19,30 alle 21,30. 

Valerio Rosso - Via Natale Gallino, 36A/3 - 16164 
Pontedecimo (GE) - Tel. 010/798625. 


Vendo/compro/cambio programmi per Commodore 
64. Scrivere o telefonare a: 

Emilio Di Lello - Via Giotto, 3 - 64026 Roseto Degli 
Abruzzi (TE) - Tel. 085/8992146. 


Vendo Commodore 64 software. Simon's Basic, Forth, 
Easy, script; tutti con istruzioni ed inoltre i più bei 
giochi e arcade games: Golden baton, Aztec tomb, 
Benji, Pac-man, Calcio, scacchi. Krazy kong, ecc. 
Marco Ellena - Str. S. Vincenzo, 40/35 - 10121 Torino 
- Tel. 011/8610293. 


Vendo/cambio centinaia di programmi per C64. Ho di 
tutto: utility, videogames, linguaggi, compilatori, 
backup ecc. Chiedere la lista. 

Paolo Vergoni - via Appia, 69 - 06100 Perugia - Tel. 
075/66918 (ore 14-15). 

Cambio programmi vari su disco o su nastro CBM 64. 
Scrivetemi. 

Augusto Guidotti - Via Lilibeo, 2 - 00100 Roma. 

Vendo programmi per VIC 20 (circa 500 di cui 90 in 
L.M.) a prezzi bassissimi. Cambio sempre per VIC solo 
programmi in L.M. Cambio anche programmi per lo 
Spectrum (circa 70). Allegare francobollo per le liste 
del VIC, gratuite se inviate le vostre. 

Giuseppe Mascali - Via R. Margherita, 573 - 98028 S. 
Teresa Riva (ME) - Tei. 0942/791692. 


Compro per VIC 20 espansione di memoria 16 k. 
Mario Cavalli - Via Onorato Vigliani, 11/9 - 10100 
Torino - Tel. 011/6191596 (dopo ore 18). 

Vendo giochi originali inglesi per Commodore 64 in 
linguaggio macchina. Utilities, software di ogni gene¬ 
re Richiedete la lista completa gratuita. 

Maurilio Caracci - Via N. Morello, 48 - 90144 Palermo 
- Tel. (091 ) 266011._ 


Offro vantaggiosi scambi software ad utenti VIC 64. 
Scrivete inviando vostri elenchi o cataloghi a: 

Giulio Cherubini - Via Filippini, 47 - 89100 Reggio 
Calabria - Tel. 330839. 


Vendo/scambìo giochi per VIC 20 senza espansione. 
Inviatemi le vostre liste. I giochi che sono in vendita da 
parte mia costano pochissimo e sono facilmente 
sdoppiabili. 

Davide Tiozzi - Via N. Sauro, 134 - 48015 Cervia (RA) - 
Tel. 971328 (ore pasti). 


Sinclair 


Vendo oltre 300 programmi Spectrum 16/48 k di cui 
alcuni inediti in Italia, singolarmente o in blocco. 
Cosimo Cosmano - Via G. Petraglione, 7 - 70124 Bari - 
Tel. 080/412111. 


Scambio software per ZX Spectrum ZX 16 o 48 k o 
vendo a L. 5.000 cad. Inviare lista o telefonare. 
Alberto Stoppani - Via Roberto Aroigò, 20 - 35126 
Padova - Tel. 049/754113. 


Vendo/compro programmi per ZX Spectrum 48 k di 
tutti i tipi. Se siete interessati richiedete o mandate la 
lista a: 

Davide Ardizzola - Via Steria, 100 -18013 Cervo Ligu¬ 
re. 


Vendo causa passaggio ad altro sistema ZX81 1 k 
come nuovo + 1 manuale in inglese e 1 in italiano 
ambedue originali + libro dei 66 programmi per ZX 81 
tutto a sole L. 130.000 trattabili. 

Roberto Mongatti - V.le 1° maggio, 12 - 50031 Barberi¬ 
no Mugello (FI) - Tel. 841493 


Vendo ZX81 + 32 k + cavetti per TV e reg. + 2 cassette 
con più di 100 programmi + manuale in italiano + 
trasformatore orig. + manuale inglese + imballi origi¬ 
nali (luglio ’83). Il tutto a L. 225.000 (garanzia in bian¬ 
co). 

Mauro Lorini - Via Botticelli, 44 - 03043 Cassino (FR) - 
Tel. 0776/481211. 


Spectrum area Venezia lezioni individuali software 
applicativo come programmare; programmi L.M.; co¬ 
me duplicare qualsiasi programma. A richiesta lezioni 
in tedesco o inglese. 

Francesco Vianello/Finzi - Via Cannaregio, 506 - 
30123 Venezia - Tel. 041/713354 


Compro per ZX Spectrum 16 k giochi a cassetta a 
partire da L. 3.000 fino a L 9.000. Possibilmente gioco 
Calcio o Pac-man. 

Andrea Ferdeghini - Via Del Cantiere - 28053 Castel¬ 
letto Ticino (NO) - Tel. 0331/920251. 


Scambio software su listato per ZX 81 espanso e non, 
utility e vari articoli, posseggo fotocopie di hardware. 
Chiedere lista allegando L. 400 in francobolli e specifi- 
cando cosa interessa. 

Fabrizio Martano - Via Don Luigi Sturzo, 7 - 58100 
Grosseto - Tel. 0564/492806. 


Vendo cassetta con 11 videogiochi fra cui: simulazio¬ 
ne di volo, frazioni, statistica, rally e altri 7 programmi 
ancora più belli, tutto su una cassetta per lo ZX81. Il 
tutto a L 40.000. 

Andrea Sabatini - Via Cadlolo. 32 - 00136 Roma - Tel. 
06/3495086 


Scambio software per ZX Spectrum ampia disponibili¬ 
tà di giochi e utility 16 e 48 k RAM. 

Stefano Pezzuto - Via Gabriele D’Annunzio, 74 - 
73100 Lecce - Tel. 0832/42441 

Vendo causa doppio regalo ZX Spectrum ancora in 
garanzia con alimentatore + cassetta dimostrativa + 
manuale in italiano + volume 77 programmi + 2 cas¬ 
sette gioco (intruders e games 4) tutto a L. 300.000 
Roberto Forestello - Via Visconti, 30 - 20093 Cotogno 
Monzese (MI) - Tel. 2548785. 


Scambio programmi, utility e varie per ZX81. Inviare L. 
400 in bolli specificando cosa interessa. Possiedo 
materiale anche per i più diffusi computer. 

Fabrizio Martano - Via Don L. Sturzo, 7 - 58100 Gros¬ 
seto - Tel. 0564/492806. 


Scambio programmi per ZX Spectrum, giochi ed uti¬ 
lity. Chiedere lista o telefonare. Riprodotti direttamen¬ 
te dal computer. Massima serietà. 

Sandro Menegatti - Via Lucerà, 13 - 70124 Bari - Tel. 
080/223121. 


Vendo 3 cassette di programmi per ZX 81: Mazogs, 
3-D Defender, Star trek. Tutte da 16 kRAM in L.M. a L 
11.000 cad., usate una sola volta. 

Per informazioni scrivere o telefonare a: 

Ernesto M Faccendo - Via Fresine Vasciotte, 17 - 
03013 Ferentino (FR) - Tel. 0775/394670 (pomerig¬ 
gi^ 

Spectrum 48 k vi sfida a push over, gioco di strategia 
su scacchiera. Spectrum può anche solo arbitrare. 
Programma su cassetta L. 20.000 comprese le spese 
di spedizione. Inviare assegno o vaglia postale. 
Anacleto Furlan - V ie Papa Giovanni XXIII, 35/10 - 
31015 Conegliano (TV). 
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Cerco programmi per ZX81 16 k, su cassetta. Gestio¬ 
nali. matematici, utility, archivi, contabili, statistici, in¬ 
viare listino con prezzi. Anche in inglese. 

Giuseppe Soriente - Via Portaromana, 100 - 84015 
Nocera Superiore (Salerno). 


Cambio/vendo/compro programmi per ZX Spectrum 
48 k. Scrivetemi per ricevere liste con programmi a 
bassissimo costo. 

Marisa Banchi - Via Di Tiglio, 15 S. Filippo - 55100 
Lucca - Tel. 0583/950688 


Riparo ZX Spectrum non acquistati in Italia, purché 
non manomessi, a L. 85.000 fisse. Vendo oric 48 k + 
cassetta lorth + 20 listati di programmi oric, a L. 
380.000. 

Vialetto Dante - Via Gorizia, 5 - 21053 Castellanza (VA) 
- Tel. 0331/500713. 

Vendo per Spectrum 48 k programma su cassetta che 
risolve qualunque triangolo, a L. 15.000 comprese 
spese spedizione. Inviare l'importo in assegno o va¬ 
glia postale. 

Anacleto Furlan - V.le Papa Giovanni XXIII, 35/10 - 
31015 Conegliano (TV). 

Vendo/cambio programmi per ZX Spectrum 16/48 k 
su cassette a prezzi bassissimi, in particolare giochi 
arcade di ottima qualità. Invio lista a richiesta. 
Patrizia Pisani - Via Angelo Emo. 71 - 00136 Roma - 
Tel. 06/6372386. 


Vendo Sinclair ZX 81 + RAM 16 k solamente a L. 
16.000. Regalo software comprendente toolkits per 
Basic e L.M., progr. L.M. per tape files, compilatore 
Basic, flight simulation ecc. 

Giovanni Gugliantini - Via Niccolini, 18 - 20154 Milano 
- Tel. 02/3495627. 


Spectrum soft bank, l'iscrizione è gratuita ed aperta a 
tutti. Libero accesso per i soci a numerosi programmi 
e pubblicazioni per lo Spectrum, Per maggiori infor¬ 
mazioni scrivere o telefonare presso: 

Marino Marinanza - Via Rastrelli, 102 - 00128 Roma - 
Tel. 06/5203292. 


È nato il "Bug Club". Scambiamo e/o vendiamo (5000 
max/progr.) software, libri, hardware, ecc. per lo 
Spectrum. Per informazioni scrivere, allegando bollo, 
a: 

Giovanni Baiano - Via Battisti, 11 Tr. priv. - 80059 
Torre del Greco (NA) - Tel. 081 /8816572. 


Texas 


Vendo TI99/4A completo collegamenti TV color e re¬ 
gistratore + registratore della Texas Instruments Pro¬ 
gram Recorder, come nuovo imballo originale a L. 
400.000 per passaggio altro sistema. 

Giuseppe Solari - Via Caselle Torinese. 52 - 00166 
Roma - Tel. 06/6961555. 


Vendo TI99/4A + 95 Sparsec + modulo mini memory 
+ editor assembler + manuali + joystick con imbal¬ 
laggi, il tutto con 4 mesi di vita a L. 450.000. 
Telefonare allo 011/9835076 (ore pasti). 


Vendo per TI 99/4A programmi (giochi, matematica, 
musica, elettronica) alcuni originali Texas a L. 50.000. 
Enzo Santangelo - Via Carnia, 14-20132 Milano - Tel. 
02/2856924. 


Cerco per Texas TI99/4A programmi archivio, grafici, 
non giochi. 

Marco Milletti - Via S. Petronio Vecchio, 42/3 - 40100 
Bologna - Tel. 051/398214. 


Vendo per TI99/4A circa 80 programmi comprenden¬ 
ti: giochi, matematica, statistica, finanza, commerciali, 
varie. Vendo anche in blocco. Prezzi irrisori. Spedire 
francobollo per ricevere elenco e prezzi. 

Massimo Boccia - V.le Colli Aminei, 475 - 80131 Na¬ 
poli - Tel. 081/7434630. 


Hai il Texas TI99/4A? E allora cosa aspetti a scrivermi 
o telefonarmi? Cambio o vendo software per tutti i 
gusti. Ne ho più di 300 tra TI Basic e Basic esteso. 
Possibilmente zona Napoli. 

Bruno Fonzi - Via Kennedy, 425 - 80125 Napoli - Tel. 
081 /7602693. 


Vendo nuovissimo compact computer Texas CC40 4 
mesi di vita causa passaggio sistema superiore. L. 
400.000 compresi garanzia, manuale ed imballo. 
Prezzo non trattabile. Preferibilmente zona Milano. 
Gabriele Mazzocchi - Via Dante, 9 - 20077 Sordìo (MI) 
- Tel. 02/9810155. 


Vendo per TI99/4A programma, Tl/Basic in grado di 
visualizzare l'orbita di qualsiasi cometa in rapporto 
alle orbite dei pianeti. Solo L. 9.000, su cassetta. Ese¬ 
cuzione < 1 min. 

Carlo Ruocco - Via Rocca Tedalda, 95 - 50136 Firen¬ 
ze - Tel. 670778. 


Vendo per TI 99/4A programmi favolosi originali. 
Usati Basic/ext. Basic listati L. 3.000. cassetta C45 
con due programmi L. 10.000. Inviare francobollo L. 
400 per invio catalogo. 

Massimiliano Verga - V.le Papa Giovanni XXIII, 37 - 
20091 Bresso (MI) - Tel. 02/6101151. 


Cerco editor assembler nuovo o usato per Texas TI 
99/4A purché funzionante e con manuali. 

Luciano Boero - Via Delle Piazze, 5/3-16167 Genova 
- Tel. 010/330421 , 


Vendo/scambio a prezzi irrisori software per TI 
99/4A, extended, assembler, giochi, gestionali, inge¬ 
gneria. Inviare bollo L. 500 per lista di oltre 400 pro¬ 
grammi. 

Settimio Periini - Via 21 gennaio, 152 -61020Montec- 
chio (PS). 

Vendo TI 99/4A + modulo extended basic + modulo 
mini memory + programmi applicativi didattici e gio¬ 
chi, tutto a L. 400.000. 

Mario Vizzotto - Via Garibaldi, 93 - 31046 Oderzo (TV) 
- Tel 0422/713527._ 

Vendo per TI 99/4A cassetta con eccezionali giochi 
(Keyboard, Dark dank, Master mind, Pling plong, 
Crazy climber. Treasure, Harves Basic, ecc.) a L. 
5.000 

Riccardo Romagnoli - Via Giovanni XXIII, 6 - 12011 
Borgo San Dalmazzo (CN) - Tel. 0171/760482. 

Cerco cavo per registratore per il TI 99/4A della Texas 
Instruments. 

Massimo Iaculo - Via Cucciarella - 81024 Maddaloni 
(CE) - Tel. 434554. 


Vendo TI 99/4A + sistema a dischi completo (drive + 
controller + RS232 + exp. 32 k) + extended Basic + TI 
writer + multiplan + speech sinth. + terminal emulator 
+ mini memory + giochi L. 2,500.000. 

Federico Aloisi - Via Spadini. 3 - 00197 Roma - Tel. 
06/3600136. 


Vendo in perfette condizioni TI 99/4A, sist. espansio¬ 
ne, scheda controllo dischi, drive interno, esp. memo¬ 
ria a RAM. TI extended Basic, 20 dischi, software + 
cassette giochi a L. 1.800.000 trattabili. 

Nicola De Rensis - Via Buonarroti, 28 - 51100 Pistoia - 
Tel. 0573/27197. 


Varie 


Acquisto/scambio/vendo programmi su disco e cas¬ 
setta per computer Atari 400-800. 

Luigi Servolini - Via La Spezia, 81 - 00182 Roma - Tel. 
06/384488-7581219. 


Vendo DAI pc 16 colori grafica fino a 256 x 356 punti, 3 
generatori di suoni programmabili, cavi, manuali, 6 
numeri della rivista DAInamic (solo per il DAI) L. 
1.250.000 trattabili. 

Mario Agostini - Via Orafi, 2 - 51100 Pistoia - Tel. 
0573/25945. 


Vendo, causa acquisto Spectrum. pocket C. Casio PB 
100 + esp. (OR-1) (1 k RAM) + int. per registratore + 
mini stampante il tutto a sole L. 300.000 (valore L. 
400.000). Il materiale è inoltre in garanzia fino al 1985. 
Luigi Cerabolini - via F. Cavallotti, 91 - 27011 Beigioio¬ 
so (PV) - Tel. 0382/960816. 


Centronics mod. 739 stampante, 1 anno di vita, vendo 
a L. 700 000. possibilità di fatturazione. 

Antonio Gallenzi - Via Cellini, 3 - 20129 Milano - Tel. 
02/798076 (ore 15-19). 


Vendo cassette per videogame Atari ottime condizio¬ 
ni. 

Luca Catellani - Via Rovigo. 2 - 37134 Verona - Tel. 
045/581318. 


Esposimetro digitale PentaxSpotmatìc. angolo di let¬ 
tura 1 grado, cambio con Sinclair Spectrum oppure 
vendo L. 400.000. 

Giovanni Felice Massimo - Via Strada 186 - 67100 
L'Aquila - Tel. 0862/313164 (ore 14-15). 


Svendo riviste di elettronica di ogni tipo italiane e 
straniere a prezzi bassissimi. Chiedere elenco detta¬ 
gliato. 

Rinaldo Ricci - Via G. Giusti, 15 - 18038 Sanremo (IM). 

Macchina fotografica Reflex automatica e manuale 
tempi da 8 sec. a 1/1000 + B con flash elettronico e. 
diversi libri di fotografia cambio con stampante oppu¬ 
re con unità a dischetti per VIC 64. 

Lorenzo Longagna - Via Piave. 20/7 -17100Savona - 
Tel. 019/25322 


Gruppo programmatori, mette a disposizione la pro¬ 
pria esperienza per la realizzazione di software per 
qualsiasi tipo di impiego su qualunque tipo di sistema. 
Per informazioni scrivere a: 

Massimiliano Piarulli - Via Dei Caduti Partigiani A/33 
- 70126 Bari - Tel. 080/338110. 


Vendo Atari 2600 con paddle, tre cassette L. 189.000. 
Atari 800 L. 800.000. Drive 810 L. 650.000 
Eugenio Candì - Via Battiferro, 1 - 40128 Bologna - 
Tel. 051/368936. 


Vendo Atari 800, drive 810, drive 1050, completi di 
programmi e stampante Centronics 730. Prezzo da 
convenire. 

Ugo Donini - Via Sacco, 1 - 40128 Bologna - Tel. 
051/516888. 


Vendo consolle porta computer con piano per monitor 
o TV completo di prese e cavi a sole L. 50.000. 
Barca Giuseppe - Via Tre Re. 29 - 20047 Brugherio 
(MI) - Tel. 039/879211. 


L'Italian Bit Club, il maggiore computerclub della Li¬ 
guria, mette a tua disposizione ì suoi oltre 100 soci, 
1000 programmi, 200 manuali. 

Sasha Drago - Via Zara 5 - 16144 Genova - Tel. 
010/313153. 


Vendo microprocessor II Apple compatibile 64 k, 
scheda Pai TV color, modulatore, interfaccia parallela 
per stampante, più controller, più driver slim line origi¬ 
nale L. 1.200.000. 

G.C. Giacobbe - Via Finocchiara, 46- 16144 Genova - 
Tel. 010/825537. 

Vendo giochi per Sharp MZ-80A.se siete interessa¬ 
ti scrivete per richiedere lista a: John Ceresi - Via 
Mazzini - 18016 S. Bartolomeo Al Mare. 


Acquisto-scambio-vendo programmi (utility- 
games) per computer Atari 400-800. Luigi Servolini - 
Via La Spezia, 81 - 00182 Roma - Tel. 06/384488 - 
7581219. 
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Rita Bonelli 


Il manuale base 
per l’uso del VIC 20 


Daria Gianni 

Alla scoperta del VIC 20 
architettura e tecniche 
di programmazione 


Un libro atteso da quanti - e 
sono moltissimi-hanno 
acquistato uno dei Personal 
Computer del giorno: 
il VIC 20 Commodore. 

Naturale completamento del 
precedente "Impariamo a 
programmare In BASIC con 
il VIC/CBM”, questo 
manuale può soddisfare 
diverse esigenze. 

Ci sono capitoli che trattano 
i file su disco e cassetta, la 
stampante VIC 1515, alcuni 
cartridge come VIC STAT, 

VIC GRAF, SUPER 
EXPANDER. Un’intera parte 
è dedicata alle porte I/O, al 
chip d’interfaccia video, al 
linguaggio macchina del 
calcolatore. Un’ultima 
importante annotazione: tutti 
i programmi che compaiono 
nel testo sono stati provati 
sul calcolatore e sono 
disponibili su cassetta 
e floppy disk. 

300 pagine 
Lire 22.000 
Codice 338 D 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


| n° copie 

codice 

Prezzo unitario 

Prezzo totale 


338D 

L. 22.000 



Desidero anche I programmi su: 

□ Floppy disk a L 25.000 

□ cassette a Li 5.000 


□ Pagherò contrassegno al postino 
il prezzo indicato più L. 2000 per 
contributo fisso spese di spedizione. 


Condizioni di pagamento con esenzione dei contributo spese di spedizione 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n. 11666203 a voi intestato 


□ Allego fotocopia di versamento 
su vaglia postale a voi intestato 


GRUPPO 

EDITORIALE 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


Nome 

Cognome 

Via 

Cap 

Città 

Prov. 

Data 

Firma 



Spazio riservato alle Aziende. SI richiede remissione di fattura 


Partita I.V.A. 
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